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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE RPO7 FUNCTIONAL DRIVE TEST CONTAINS A SERIES OF TESTS THAT WILL 
VERIFY THAT THE DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE SEEKS 
AND ACCESS TIMES ARE WITHIN TOLERANCE, THAT THE ADDRESSING CIRCUITRY 
OPERATES PROPERLY, AND THAT WRITE AND READ DATA CAPABILITIES ARE 
FUNCTIONAL . 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
THIS PROGRAM WILL REQUIRE THE FOLLOWING SYSTEM HARDWARE: 


AN XXDP+ LOAD MEDIUM 

A CONSOLE KEYBOARD/PRINTER 

28K WORDS OF MAIN MEMORY 

A PDP-11 PROCESSOR WHICH HAS THE THROUGHPUT CAPABILITY 
EQUAL TO AT LEAST 2.2 MBYTES/SEC FOR OPERATION IN NON- 
INTERLEAVED MODE OR 1.3 MBYTES/SECOND FOR OPERATION IN 
INTERLEAVED MODE. 

ONE RH70 OR RH11 CONTROLLER 

A PROGRAMMABLE CLOCK (KW11-P) 


Suthr 


ou 


1.3 RELATED DOCUMENTS AND STANDARDS 

XXDP+ USER'S MANUAL (CHQUS) 

RPO7 PURCHASE SPECIFICATIONS (A-PS-3015478-0-0) 
1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

RPO7 FRONT END DIAGNOSTIC, 

RPO7 POP11 FORMATTER. 

1.5 RESTRICTIONS 


THIS PROGRAM WILL NOT BE ABLE TO RUN ANY OF THE AVAILABLE RPO? 
RESIDENT MICRODIAGNOSTICS. 


THIS PROGRAM WILL NOT RUN ON LSI-11 CPU'S. 


THE COMMANDS: NOP, DIAGNOSTIC, FORMAT TRACK, AND READ/WRITE TRACK 
DESCRIPTOR ARE NOT USED. 


SEG 000% 
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IF A KW11-P SYSTEM CLOCK IS NOT INSTALLED ON THE SYSTEM, THE TIMING 
TESTS WILL NOT BE EXECUTED. 


THE PROGRAM DOES NOT PROVIDE MODULE CALLOUT IN THE ERROR PRINTOUT. 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 

/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF Mm! 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,.5.7,.8,.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS :DDD00 EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 


/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 
/EOP :DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 


DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADO/DROP ONLY THOSE UNITS SPECIFIED 


SEG 9004 
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IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-5/PASS: 1000/EOP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED By EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 
START x x x 
RESTART xX x Xx 
CONTINUE x Xx 
PROCEED x 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDOS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IERs INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER. PC, TEST AND UNIT) 


IXRe INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 


UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 


SEQ 9005 


G| 
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ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (CON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT ) 
* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” 

YOU MUST ANSWER “Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


UNIT O 

RPCS1 ADRS (0) 176700 ? 
VECTOR ADRS (0) 254 ? 
BR LEVEL (0) 5 ? 

DRIVE @ (0) O ? 


THE 1ST QUESTION “RPCS1 ADRS” REQUIRES THAT THE USER INPUT THE 
ADDRESS OF RPCS1 OF THE CONTROLLER WHICH IS CCNNECTED TO THE DRIVE 
UNDER TEST. DEFAULT IS 176700 (OCTAL). 


THE 2ND QUESTION “VECTOR ADRS” REQUIRES THE USER TO INPUT THE 
eaten ee ADDRESS OF THE RHXX CONTROLLER. DEFAULT IS 


THE 3RD QUESTION “BR LEVEL” REQUIRES THE USER TO INPUT THE CONTROLLER 
INTERRUPT PRIORITY LEVEL. OEFAULT IS LEVEL 5. 


THE 4TH QUESTION “DRIVE #” REQUIRES THE USER TO SPECIFY THE DRIVE 
NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS O COCTAL). 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 


OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 


SEQ 0006 
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OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ?”, IF YOU 
WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING “Y", THE SOF TWARE 
QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED AS FOLLOWS: 


CHANGE DRIVE PARAMETER (L) N ? 


IF THE RESPONSE TO THE PREVIOUS QUESTION IS ‘N’ THE FOLLOWING DRIVE 
PARAMETER QUESTIONS WILL BE SKIPPED AND PROGRAM WILL PROCEED AS NORMAL. 
A ‘Y: RESPONSE WILL ALLOW THE USER TO ANSWER THE FOLLOWING DRIVE 
PARAMETER QUESTIONS. 


STARTING Cyt (D) 0O ? *##(TESTS 2-4,6-8,11,13,14,17,18) 
ENDING Cyt. (0) 629 ? ae(TESTS 2-4,6,8,10,14,17,18) 
INCREMENT Cyt (0D) 1 ? #e(TESTS 2) 

STARTING TRK (D0) O ? *#@C( TESTS 2-7,11,13,16,17) 
ENDING TRK (D) 31 ? *#*(TESTS 3-6,11,14,16-18) 
INCREMENT TRK (D) 1 ? ee(TESTS 11,16,17) 

STARTING SEC (D) 0O re #a(TESTS 2,5-7,13) 

ENDING SEC (0D) 49 *#e(TESTS 5,6,14,18) 

DATA PATTERN (0) 030221 ? #aC( TESTS 16, 17,18) 


IF THE FIELD VERSION OF THIS PROGRAM IS BEING RUN, THE FOLLOWING 
QUESTION WILL BE ASKED. 


DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ? 


IF THE RESPONSE TO THE PREVIOUS QUESTION IS ‘N’, THE FOLLOWING 
QUESTION WILL BE SKIPPED AND PROGRAM WILL PROCEED AS NORMAL. 

A ‘Y' RESPONSE WILL PRINT THE FOLLOWING WARNING MESSAGE TO THE OUTPUT 
DEVICE AND ASK THE FOLLOWING QUESTION. 


! CUSTOMER DATA WILL BE OVERWRITTEN ! 


CONTINUE (L) ? 
*#e(TESTS 17,18) 
IF THE RESPONSE TO THE PREVIOUS QUESTION IS ‘N’, THE FOLLOWING 
QUESTION WILL BE SKIPPED AND THE PROGRAM WILL NOT ALLOW TESTS 17-18 TO 
eta FOR TESTING. A ‘Y‘ RESPONSE WILL ASK THE FOLLOWING 


USE RANDOM DATA PATTERNS FOR RANDOM WRITE TEST (L) N ? 
*#*(TESTS 18) 


PERFORM READ HEADER & DATA DURING SEEKS (L) Y ? 
#e(TESTS 2-6) 


TYPE TIME REPORTS (L) N ? 
#e(TESTS 7-10,14,18) 


INHIBIT SOFTWARE TIMEOUTS (L) N ? 
*#*(ALL TESTS) 


TIMING TESTS, STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC (L) N ? 
*e(TESTS 7-10,14,18) 


STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMING TESTS (L) N ? 


ii 
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#¢C(TESTS 1-6,11,13,14-18) 


*#USE RANDOM STALL TIMES (L) N ? 
#e(TESTS 1-6,11,13,14-18) 


# THAT QUESTION IS ASKED WHEN YES IS ANSWERED TO THE QUESTION. 
#* INDICATES NOT PART OF THE DIALOGUE. 


STALL DEFINITIONS 
THERE ARE TWO DISTINCT STALLS : 


1. SELECTABLE STALL, VIA SOFTWARE (SW) DIALOGUE: 10. MSEC OR 
RANDOM (1-64 MSEC) STALL TIME AFTER EVERY DRIVE FUNCTION IN 
NON-TIMING TESTS. 


2. NON-SELECTABLE, 2 MSEC OR RANDOM STALL BETWEEN SEEKS IN 
TIMING TESTS 8. THRU 10. 


A 'N’ RESPONSE TO THE SUPERVISOR QUESTION “CHANGE SW (L)?"” WILL 
ASSUME THE ASSIGNED SOFTWARE (SW) DEFAULT CONDITIONS: REPEATS = 1, 
STARTING CYLINDER = 0, ENDING CYLINDER = 629, STARTING TRACK = O, 
ENDING TRACK = 31, INCREMENT TRACK = 1, STARTING SECTOR = 0, ENDING 
SECTOR = 49, PATTERN = 030221, WRITE ON ALL CYLINDERS WITHIN SPECIFIED 
LIMITS, RUN TESTS 1-18, DO READ HEADER AND DATA COMMAND IN SEEK TESTS 
2-6, NO STALL, NO TIME REPORTS, SOFTWARE TIMEOUTS ENABLED. 


NOTE 


IF RUNNING THE FIELD VERSION OF THIS 
PROGRAM, TESTS 17 AND 18 WILL ONLY BE 
RUN WHEN THE “WRITE DATA ANYWHERE ON 
a Aten OPTION IS SELECTED BY THE 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_ TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (0D) ? 8<CR> 
UNIT 1 


SEQ 9008 


J1 
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CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? O<CR» 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (6) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
a THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0? 1,0<CR> 


SEQ 9009 


a 
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UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“"~" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM -_ FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (@) ? 160000<CR> 

SUB-DEVICE # (0) ? 0-7<CR> 

Q-FACTOR (0) 0 ? 0.1.0.0ceb28¢CR> 
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
Is A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE “START” 
S. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 


ER DOCUMENTATION 
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6. ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE “CHANGE SW” QUESTION WITH "N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A OIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE se FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 ERROR PRINTOUT 


THE ERROR PRINTOUT WILL CONTAIN A ONE LINE ERROR DESCRIPTION FOLLOWED 
BY COLUMN HEADINGS AND COLUMNS OF REGISTER CONTENTS IN OCTAL. 


EXAMPLE : 


CZRXXX HRD ERR OOXXX ON UNITXX TSTXX SUBXX PCXXXXX 
RPO7 ADDRESSING ERROR CIAE AOE) 
CYL XXX. TRK XX, SEC XX. RPER2 (HEX) XXXX 


DRIVE RPCS1 RPWC RPBA RPDA RPCS2 RPDS 
XXXXXK AXXAXXKX XRXAXARK AAXKXAXK ARXAXKKK ARAXKAXKK AXAXKAXXX 
RPER1 RPAS RPLA RPOB RPMR1 RPOT £RPSN 
XXXXAXK XXXAXXK XRXKKAXK AXXAXKK RAXKAXK AXAXAK AXXAXKX 
RPOF RPDC RPCC RPER2 RPERS RPEC1 RPEC2) 
XXXXKK AXXAXXX XAXAXXAXKX AXAXAXKXK RAXKXAXK AXXAXXAXK AXXXXX 


SEQ 0011 


£R 


DOC! MENTATION 
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THE FIRST LINE OF THE ERROR MESSAGE IS PRODUCED BY THE DIAGNOSTIC 
SUPERVISOR. THERE ARE SEVEN ITEMS REPRESENTED IN THE FIRST LINE OF 
OUTPUT. THEY ARE: 1) THE MAINDEC NUMBER, 2) THE TYPE OF ERROR, 

IE: HARD, DEVICE FATAL, 3) THE ERROR MESSAGE NUMBER, 4) THE FAILING 
LOGICAL UNIT NUMBER, 5S) THE NUMBER OF THE FAILING TEST, 6) THE 
NUMBER OF THE FAILING SUB-TEST, 7) THE ACTUAL PROGRAM COUNT OF THE 
FAILURE MESSAGE. 


THE SECOND LINE PRODUCES INFORMATION ABOUT THE SPECIFIC FAILURE MODE. 
THE BALANCE OF THE ERROR REPORT CONTAINS REGISTER STATUS TO AID THE 
F.E. IN FAULT DETECTION AND POSSIBLE ISOLATION. 


3.3 SPECIFIC ERROR MESSAGES 
INIT CODE ERRORS 


ON A START COMMAND OR ON A NEW PASS, THE ORIVE AVAILIBILITY IS CHECKED 
iN THE INIT CODE, BEFORE RUNNING THE TESTS. A DRIVE NOT AVAILABLE IS 
APPROPRIATELY REPORTED AND THE CURRENT PASS ABORTED FOR THAT UNIT: 


DRIVE N UNSAFE 
DRIVE N NON-EXISTENT 
DRIVE N OFF-LINE 
DRIVE N NOT A RPO7 


WHERE ‘N' IS THE ORIVE NUMBER THAT FAILED 
NUMBERED ERROR LIST 


1: RHXX CONTROL BUS PARITY ERROR MCPE=1 

2:  RHXX DATA BUS PARITY ERROR MOPE=1 

3 RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE , MxF ) 
4: WRITE CHECK ERROR 

S: DATA LATE ERROR 

6:  ORIVE PROGRAMMING ERROR (PGE) 

7;  LOSTS BIT CLOCK (LBC) 

11: WRITE CLOCK aa 


3 OCK) 
14: ORIVE BUS PARITY ERROR (OPE) 
15: ILLEGAL CONDITIONS SET CILF,ILR,RMR) 
16: ADDRESSING ERROR (IAE,AOE) 
17: SEEK ERROR (SKI,LCE) 
20: CLOCK (KW11-P) OVERFLOW IN TIMING TEST 
21: EARLY WARNING CEWN) 
22: READ AND WRITE HEAD FAILS 
23: DATA FORMAT BIT ERROR (FER) 
24: HEADER INFORMATION ERROR CHCE) 
25: ORIVE HAS BECOME NON-EXISTENT (1) 
26: ORIVE HAS NOT RESPONDED TO PORT REQUEST 
27: SOFTWARE TIMEOUT ON THIS DRIVE 
30: FATAL MASSBUS PARITY ERROR (MCPE=1 OR PAR=1) 
31: OFFLINE OR UNSAFE DRIVE REQUESTED 
32: WRITE-READY UNSAFE 


aw 
me 
hs 


SEG 0012 


- 
- 
‘ 


ee 


C MENTATION 


Ni 
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33: DC POWER UNSAFE 

34: INDEX UNSAFE 

35: PROCESSOR HANDSHAKE FAILURE 
36: ORIVE OFF-LINE OR NOT A RPO7 
41: OPERATION INCOMPLETE (OPI) 
42: IMPROPER HEADER DATA 

43: ECC LOGIC FAILURE 

44: MISC DRIVE ERROR: RPER1, RPER2, RPER3S 
45: ORIVE TIMING ERROR (OTE) 

46: HEADER CRC ERROR CHCRC) 

47: UNCORRECTABLE ECC ERROR 


SO: LAST BLOCK TFR LBT NOT SET WHEN READING LAST SECTOR 
S51: AD OVFL AOE NOT SET WHEN READING PAST LAST SECTOR 


S2: HARD ERROR - 

53: SOFT ERROR - 

54: OM OF RPDS NOT SET ON OFFSET CMD 

SS: OM OF RPDS NOT RESET ON RET CENTER CMD 


MOST OF THE NUMBERED ERRORS ABOVE WILL ALSO CAUSE A DUMP OF THE 
FORMAT BELOW, CONSISTING OF 2 PARTS, A BASIC, THEN AN EXTENDED 


ERROR MESSAGE, BOTH CONTROLLED BY IBR AND IXR FLAGS: 
CYL XXX. TRK XX. SEC XX, RPER2 (CHEX) XXXX 
DRIVE RPCS1 RPWC RPBA RPDA RPCS2 RPDS 
AXKAXKK ARAXXKAXK XXXXAXKX XAXAXAXXKX ARAXAXXXK AXXXKXAXKX XAXXXXX 
RPERi RPAS RPLA RPDB RPMRL RPDT RPSN 
KXXKAXK ARAXXKAXKX XXXAXK RAXAXAXXK ARAXAXKKXK AAXXKAKK XAXAXKXX 
RPOF RPDC RPCC RPER2 RPERS RPEC1 RPEC2 
XXXXXK ARAXXXKKX XXXAXAXK XAXAXXKXK AXAXAXXXX AXXMMXMM XXAXXXX 

EXCEPTIONS: 

(1) ORIVE N 

(2) ORV CYL TRK SEC 
XXX XXX XXX XXX 
GOCYL GDTRK GOSEC BDCYL BDTRK BDSEC 
XXX  XMMXK XXX XXX XXX XXX 


(3) @ OF OPERATIONS WITH A LOST REVOLUTION: XXXxX 
XXXX OPERATIONS TIMED 


ALLOWABLE OPERATION TIME LIMIT 
MAX= XXXXX US 


(4) NO ADDITIONAL MESSAGES 
(S) TIMING TESTS 7, 14, 18: 


UNRECOVERABLE SEARCH ERROR 
ABORT TEST 


SEARCH FATLED AFTER 16 RETRIES 
ABORT TEST 


(1) 


SEQ 0013 


Lic’ 
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(6) TIMING TESTS 8-10, 14, 18: 
POSITION ERROR: ABORT TEST 
3.4 ERROR TYPE 


THE FIRST LINE OF ERROR MESSAGES PRODUCED BY THE DIAGNOSTIC SUPERVISOR 
IDENTIF LES THE TYPE OF ERROR REPORTED. THEY ARE CLASSIFIED Br THE 
DIAGNOSTICS IN 3 CATEGORIES: 


1. ‘SFT’ - SOFT: THE FIRST LOST DISC REVOLUTION IN THE ADDRESS 
MARK DETECTION TESTS. 


2. ‘HRD’ - HARD: ALL ERRORS, EXCEPT DEVICE FATAL ERRORS AND SOFT 
ERRORS. 


3. ‘DVC FTL’ - DEVICE FATAL: AN ERROR THAT FAILS THE DEVICE; DEVICE 
NOT READY, NON-EXISTENT OR NOT AN RPO7, 


4.C PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 TEST SUMMARIES 
TEST 1: RECAL TEST 


THIS TEST EXECUTES A RECALIBRATE COMMAND, THEN EXECUTES 
A READ HEADER AND DATA COMMAND TO VERIFY CORRECT POSITION. 


NOTE 


IN SEEK TESTS 2-6, SEEK POSITIONING 
IS VERIFIED VIA READ HEADER AND DATA 
Cc » _ UNSUPERSEDED BY SOFTWARE 
(SW) DIALOGUE, IN WHICH CASE SEEK 
POSITIONING IS NOT VERIFIED. 


TEST 2: INCREMENTAL SEEK TEST 


THIS TEST EXECUTES FORWARD SEEKS TO ADVANCE THE 
FIRSTCSTARTING) CYLINDER ADDRESS TO THE LAST(ENDING) CYLINDER 
ADDRESS INCREMENTALLY. WHEN THE LAST(ENDING) CYLINDER 

IS REACHED, THE TEST IS REPEATED IN THE REVERSE DIRECTION. 

THE INCREMENT/DECREMENT VALUE IS 1 BY DEFAULT, CHANGEABLE 
VIA SW OIALOGUE. 


TEST 3: RANDOM SEEK TEST 
THIS TEST EXECUTES 1024. SEEK OPERATIONS RANDOMLY BETWEEN THE 
ee CYLINDER ADDRESS AND LAST(ENDING) CYLINDER 


TAG 0014 
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TEST 4: RECAL/RANDOM SEEK TEST 
THIS TEST EXECUTES A RECALIBRATE COMMAND, FOLLOWED BY A SEEK 10 


A RANDOMLY SELECTED CYLINDER. THIS SEQUENCE IS REPEATED 10. TIMES. 


TEST 5S: SEEK DIFFERENTIAL TEST 


THIS TEST CONSISTS OF 3 SUBTESTS TO TEST THE HEAD POSITIONER AND 
SERVO SYSTEM RESPONSE TO 3 UNIQUE DIFFERENTIAL SEEK PROFILES: 


1. 6 CYLINDER DIFFERENTIAL SEEK: FORCES A SLEW RATE 
CHANGE BY SEEKING FROM CYLINDER O TO 5, 1 TO 6, 2 
‘Seek ... 624 TO 629, TO TEST THE POSITIONAL 
L . 


2. 33 CYLINDER DIFFERENTIAL SEEK: WORST CASE SEEK 
OVERSHOOT TEST, FORCED BY SEEKING FROM CYLINDER 0 
TO 32, 1 TO 33, 2 TO 34, ... 597 TO 629. 


3. 400 CYLINDER DIFFERENTIAL SEEK: FORCES MAXIMUM 
ACCELERATION AND DECELERATION OF CARRIAGE ASSEMBLY, 
FORCED BY SEEKING FROM CYLINDER O TO 399, 1 TO 400, 
270 401, ... 250 TO 629. 


TEST 6: OSCILLATING SEEK TEST 


THIS TEST SHALL EXECUTE A SERIES OF SEEK OPERATIONS TO 
CAUSE AN OSCILLATING MOVEMENT OF THE HEAD POSITIONER. THAT 
MOVEMENT SHALL RESULT FROM SEEKING TO THE FOLLOWING PATTERN 
OF DESIRED CYLINDERS: FROM THE MAXIMUM DISTANCE SEEK OF 
CYLINDER 0 TO LASTCENDING) CYLINDER (LC), FROM CYLINDER 1 TO 
LC-1, FROM CYLINDER 2 TO LC-2, ... DOWN TO THE MEDIAN 
CYLINDER, THEN, ae age THE ORDER OF THOSE SEEKS FROM THE 
MEDIAN CYLINDER BACK UP TO THE MAXIMUM DISTANCE SEEK OF 
CYLINDER O TO LC. 


NOTE 


THE TESTS NUMBERED 7-10., 14., 18. 
CONTAIN TIMING TESTS. THEY REQUIRE 
THAT A KW11P P-CLOCK BE INSTALLED 
ON THE SYSTEM IN-ORDER TO RUN. AT 
THE COMPLETION OF EACH OF THE TIMING 
TESTS, THE MAXIMUM AND THE MINIMUM 


EACH TEST ARE CHECKED AGAINST THE 
TOLERANCES GIVEN BY THE ENGINEERING 
SPECS. THE PROGRAM WILL PRINT THE 
MEASURED TIMES IF THEY ARE OVER THE 
TIMING TOLERANCES. IF THE PRINT 
REPORT WAS REQUESTED VIA SOFTWARE 
(SW) DIALOGUE, THE TIMING INFO WILL 
ALWAYS BE PRINTED. IF A SYSTEM CLOCK 
IS NOT FOUND TO BE PRESENT, TIMING 
TESTS WILL NOT BE EXECUTED. THE 
OPERATOR WILL BE NOTIFIED VIA A 


SEG 9015 


D? 
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MESSAGE. 
TEST 7: ROTATIONAL SPEED TIMING TEST 


THIS TEST EXECUTES A SEARCH COMMAND TO CYLINDER FC, 

TRACK FT AND SECTOR FS. AS SOON AS THE SEARCH OPERATION IS 
DONE, THE TEST SETS THE “GO” BIT TO EXECUTE ANOTHER SEARCH 
COMMAND WITH THE SAME RHXX/RPO7 REGISTER CONTENTS. THE TIME 
INTERVAL IS MEASURED AGAINST A TOLERANCE OF 16.515 MSEC +-3s. 
REPEAT THIS SEQUENCE 10 TIMES. IN CASE ANY RECOVERABLE 

READ ERROR EXISTS, THE PROGRAM WILL EXECUTE THE SEARCH 

COMMAND 16 TIMES. IF THE RETRY SEQUENCE FAILS THE PROGRAM WILL 
a. ieonten GENERATING A MESSAGE TELLING WHY THE PROGRAM 

td . 


TEST 8: ONE CYLINDER SEEK TIMING TEST 


THIS TEST EXECUTES FORWARD SEEK FROM THE FIRSTC(STARING) 
CYLINDER TO THE FIRSTCSTARTING) CYLINDER + 1 AND THE 
OPERATION IS TIMED AGAINST A TOLERANCE OF 5 MSEC.. AFTER 
EXECUTING THE TEST CYCLE, THE FIRSTCSTARING) CYLINDER ADDRESS 
IS INCREMENTED BY ONE. THIS PROCEDURE CONTINUES UNTIL THE 
FIRSTCSTARTING) CYLINDER ADORESS REACHES 629 THE USER 

SPECIFIED ENDING CYLINDER, THEN THE TEST IS REPEATED IN THE 
REVERSE DIRECTION. DO THIS SEQUENCE TWICE. THE AVERAGE ONE 
CYLINDER SEEK TIME WILL BE COMPUTED AND REPORTED WHEN THE 
“TYPE TIME REPORTS (L)” QUESTION IS RESPONDED TO IN THE 
AFFIRMATIVE OR IF A TIMING LIMIT IS EXCEEDED. THE AVERAGE SEEK 
TIME FOR A SINGLE CYLINDER SEEK IS COMPUTED PER FORMULA: 


Va « V2 © 1ce T6290 © 1620 ¢ 14. T2 @ Ti 
629 + 629 
WHERE TX IS THE SINGLE CYLINDER SEEK TIME. 
TEST 9: AVERAGE SEEK TIME MEASUREMENT 


THIS TEST WILL MEASURE THE AVERAGE SEEK TIME BY USING 
THE FOLLOWING CALCULATION: 


2X ( (Tl X 629)¢(T2 X 628)+...+(T629 X 1)) 
OEE eh. pendacatodn madns4 pate sen ealianalaaeedt maaan am 
629 X 629 


WHERE :; 

THE TX IS THE FORWARD (REVERSE) SEEK TIME FROM CYLINDER O TO 
CYLINDER xX (CYLINDER X TO CYLINDER 0). THE NUMBER 2x629 IS 
THE TOTAL NUMBER OF SEEKS EXECUTED. 

AVERAGE SEEK TIME TOLERANCE IS 23 MSEC. 


TEST 10: MAXIMUM SEEK TIMING TEST 


THIS TEST EXECUTES FORWARD SEEK FROM CYLINDER O TO THE 

LASTCENDING) CYLINDER, THEN A REVERSE SEEK FROM THE 
LASTCENDING) CYLINDER TO CYLINDER 0, BOTH SEEKS ARE TIMED 
AGAINST A TOLERANCE OF 46 MSEC.. A TOTAL NUMBER OF 1024 


f- > 
= Al 
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SEEKS WILL BE EXECUTED TO CALCULATE THE MAXIMUM SEEK 
TIME(S12 FORWARD, 512 REVERSE). 


TEST 11: MID TRANSFER SEEK TEST 


THIS TEST EXECUTES READ DATA COMMANDS FOR EVERY TRACK 

ON THE FIRST (STARTING) CYLINDER, WITH WORD COUNT BEING SET 
TO EQUAL A FULL TRACK PLUS ONE SECTOR. THIS TEST ENSURES 
THAT EACH READ HEAD WORKS PROPERLY AND ALSO ENSURES THAT THE 
SPIRAL READ DATA OPERATION, REQUIRING A MID-TRANSFER SEEK, 
WORKS PROPERLY. 


TEST 12: ERROR REGISTER BIT TEST 


EXECUTE A READ DATA COMMAND ON THE LAST USER ADDRESSABLE 
SECTOR, TESTING FOR THE ASSERTION OF LAST BLOCK TRANSFERRED 
(L8T) BIT OF THE STATUS REG RPDS. REISSUE READ DATA 
COMMAND TO LAST SECTOR WITH A WORD COUNT GREATER THAN 256 
WORDS, TESTING FOR THE ASSERTION OF THE ADDRESS OVERFLOW 
ERROR (AOE) BIT OF THE ERROR REG. RPER1. 


TEST 13: OFFSET/RETURN TO CENTER LINE TEST 


VERIFY THAT THE OFFSET AND RETURN TO CENTER LINE COMMAND 
WORK PROPERLY. 


ISSUE AN OFFSET COMMAND, PROCESS THE ATTENTION INTERRUPT AND 
CHECK FOR ERRORS, VERIFY THE ASSERTION OF THE OFFSET MODE 
COM) BIT OF RPDS. 


ISSUE A RETURN TO CENTER LINE COMMAND, PROCESS THE ATTENTION 
INTERRUPT AND CHECK FOR ERRORS, VERIFY THE RESETTING OF OM. 


TEST 14: RANDOM READ TEST / ADDRESS MARK DETECTION TEST 


IF THERE IS NO P-CLOCK, THIS TEST RANDOMLY SELECTS A 
SECTOR, THEN EXECUTES A READ DATA COMMAND TO THIS SECTOR TO 
VERIFY THAT NO DATA TRANSFER ERROR OCCURS. REPEAT 1024 TIMES. 


IF THERE IS A P-CLOCK, THE ADDRESS MARK DETECTION TIMING 
TEST VERIFIES THAT DATA CAN BE READ CORRECTLY WITHIN THE 
SAME REVOLUTION AS A SECTOR DETECTION. THE TEST RANDOMLY 
SELECTS A SECTOR, SEARCHES FOR THE PRECEDING LOGICAL SECTOR, 
THEN READS THE SELECTED SECTOR. THE TIME INTERVAL 
SEARCH DONE - READ DONE IS MEASURED AND CHECKED TO BE WITHIN 
THE SAME DISC REVOLUTION. REPEAT THIS SEQUENCE 1024 TIMES. 
AT THE END OF THE TEST, AN ERROR MESSAGE SHALL INDICATE THE 
NUMBER OF OPERATIONS WITH A REVOLUTION LOST, IF ANY. 


TEST 15: FE CYLINDER ADDRESS TEST 
THIS TEST EXECUTES READ-HEADER AND DATA COMMANDS TO 
VERIFY THE ADDRESSING OF SECTOR O ON ALL TRACKS OF THE FIRST 
FE CYLINDER, THEN EXECUTES AN EXPLICIT SEEK TO ACCESS THE 
SECOND FE CYLINDER. 


TEST 16; FE CYLINDER WRITE AND WRITE-CHECK TEST 


SEG 0017 


Fe 
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THIS TEST WILL WRITE ON THE FIRST FE CYLINDER FROM THE 
FIRSTCSTARTING) TO THE LASTCENDING) TRACK TO VERIFY THAT THE 
DRIVE CAN WRITE DATA WITHOUT DETECTABLE ERROR. THE TEST 
WRITES THE DEFAULT DATA PATTERN 030221 OR A USER SPECIFIED 
DATA PATTERN ONTO THE MEDIA, FOLLOWED BY EXECUTING A 
WRITE-CHECK COMMAND. THE TEST CHANGES THE DATA PATTERN TO 
ITS COMPLEMENT VALUE AND REPEATS THE TEST CYCLE. THE WORD 
COUNT IS SET TO DO TWO HALF TRACK DATA TRANSFERS. 


TEST 17: WRITE TEST 


IF RUNNING THE FIELD VERSION OF THIS PROGRAM, THIS TEST IS 
ONLY RUN IF THE “WRITE DATA ANYWHERE ON THE MEDIA” OPTION IS 
ap he BY THE OPERATOR, IN THE SOFTWARE PARAMETER 


THIS TEST WRITES DATA AND WRITE CHECKS DATA ON EVERY TRACK 
FROM THE FIRSTCSTARTING) TO LASTCENDING) TRACK OF THE FIRST 
(STARTING) CYLINDER FC AND THE LASTCENDING) CYLINDER. THE 
WORD COUNT IS SET TO DO TWO HALF TRACK DATA TRANSFERS. 


TEST 18: RANDOM WRITE TEST /ADDRESS MARK DETECTION TEST 


IF RUNNING THE FIELD VERSION OF THIS PROGRAM, THIS TEST IS 
ONLY RUN IF THE “WRITE DATA ANYWHERE ON THE MEDIA” OPTION IS 
ape BY THE OPERATOR, IN THE SOFTWARE PARAMETER 


IF THERE IS NO P-CLOCK, THIS TEST WRITES DATA AND WRITE 
CHECKS DATA RANDOMLY ON THE MEDIA, WITH A TRANSFER SIZE OF 1 
ay hl 1024 TIMES. THE DATA PATTERN IS RANDOM OR A SPECIFIED 


IF THERE IS A P-CLOCK, THE ADDRESS MARK DETECTION TIMING 
TEST VERIFIES THAT DATA CAN BE WRITTEN CORRECTLY WITHIN THE 
SAME REVOLUTION AS A SECTOR DETECTION. THE TEST RANDOMLY 
SELECTS A SECTOR, SEARCHES FOR THE PRECEDING SECOND LOGICAL 
SECTOR, THEN WRITES THE SELECTED SECTOR. THE TIME INTERVAL 
SEARCH DONE - WRITE DONE IS MEASURED ANDO CHECKED TO BE WITHIN 
THE SAME DISC REVOLUTION. A WRITE CHECK DATA IS THEN ISSUED 
ON THE SELECTED SECTOR. REPEAT 1024 TIMES. AT THE END OF THE 


TEST, AN ERROR MESSAGE SHALL INDICATE THE NUMBER OF OPERATIONS 


WITH A REVOLUTION LOST, IF ANY. 


SEQ 0018 


G2 
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HISTORY 


.REM @ 


VERSION 
i . 


VERSION 
1. 


(CZRJL -A-0) 


THIS VERSION IS THE STARTING POINT FOR CX DIAGNOSTIC SUPPORT OF 
THE RPO7 DISK DRIVE. 


(CZRJL -B-0) 


WHEN A BAD SECTOR ERROR (BSE) OCCURS DURING A WRITE CHECK 
COMMAND, THE MASSBUS DATA BUS PARITY (MDPE) BIT IS ALSO SET 
FOR SOME UNKNOWN REASON. TO REMEDY THIS PROBLEM, THE BSE BIT 
IS ALSO CHECKED AFTER THE MOPE BIT IS DETECTED AND IS TREATED 
AS A NORMAL BAD SECTOR. 


MODIFIED THE PROGRAM TO REPORT THE SEEK TIMES OF THE TIMING 
TESTS (7-10,14,18), ONLY IF THE TEST FAILS A TIMING SPEC OR IF 
THE APPROPRIATE SOFTWARE QUESTION IS ANSWERED AFFIRMATIVE. 


THE ADDRESS MARK TESTS (14 € 18) WILL NOW REPORT A LOST 
so eag ob ay ERROR AS IT OCCURS, INSTEAD OF WHEN THE TEST HAS 
L . 


SEQ 0019 
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002000 


002124 


He 


s*LAST REVISION 25-MAY -83 


-TITLE CZRJLBO RPO7 FCTNL TEST 
-SBTTL PROGRAM HEADER 


-ENABL AMA,ABS 


+ 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


L$NAME: : 


LSREV:: 
L$DEPO:: 
LSUNIT::— 
L$TIML::. 
LSHPCP:: 
LSSPCP:: 
LSHPTP:: 
LSSPTP::- 
LSLADP::- 
LSSTA:: 
L$CO:: 
LSDTYP::- 
LSAPT:: 
D 
LSDTP:: 
. WORD 
LS$PRIO:: 
. WORD 
LSENVI:: 
. WORD 
LSEXP1:: 


sDIAGNOSTIC NAME 


4C/ 
42Z/ 
/R/ 
4J5/ 
4L/ 
0 
(9) 
0 
sREVISION LEVEL 
/B/ 
30 
/0/ 
sNUMBER OF UNITS 
TSPTHV 
- sLONGEST TEST TIME 
sPOINTER TO H.W. QUES. 
L$HARD 
sPOINTER TO S.W. QUES. 
L$SOFT 
sPTR. TO DEF. H.W. PTABLE 
L$HW 
sPTR. TO S.W. PTABLE 
L$Sw 
sDIAG. END ADDRESS 
LS$LAST 
‘ sRESERVED FOR APT STATS 
c0) 
6 sDIAGNOSTIC TYPE 
;APT EXPANSION 
3sPTR. TO DISPATCH TABLE 
LS$DISPATCH 
sDOIAGNOSTIC RUN PRIORITY 
° sFLAGS DESCRIBE HOW IT WAS SETUP 


sEXPANSION WORD 


SEQ 0020 


[2 
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PROGRAM 


325 


HEADER 


002046 
002050 
002050 
002051 
002052 


000000 


LS$MREV:: 


LSEF:: 


L$SPC:: 


L$DEVP:: 
LSREPP::" 
LSEXP4;;: 
LSEXPS:: 
L$AUT:: 
L$DUT:: 
L$LUN:: 
L$DESP:: 
L$LOAD:: 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
L$PRT:: 
LSTEST:: 
LSOLY:: 
LSHIME: : 


. WORD 


.BYTE 
-BYTE 


. WORD 
. WORD 


0) 
3SVC REV AND EDIT # 
CSREVISION 


CsEDIT 
sDIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
sDVTYP 
sPTR. TO REPORT CODE 


sPTR. TC ADD UNIT CODE 

sPTR. TO DROP UNIT CODE 

;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR. TO INIT CODE 

sPTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

sPTR. TO PROTECT TABLE 

;TEST NUMBER 

sDELAY COUNT 

sPTR. TO HIGH MEM 


t¢) 
0) 
i 
0 
0) 
0 
0 
0) 
0 


L$DESC 
E$LOAD 
0 
LSINIT 
L$CLEAN 
L$AUTO 
L$PROT 
0 

.¢) 

i?) 


SEG 0021 
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DISPATCH TABLE 


NOUS Whe 


000022 
026762 


037332 


-SBTTL DISPATCH TABLE 


$¢ 
3 THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF Ps TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST 


. WORD 
LSDISPATCH: : 
~W 


Je 


SEQ 0022 


Ke 
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DEF AULT 


OBANDUSWhe 


HARDWARE P-TABLE 


002170 
002172 
002172 
002172 
002174 
002176 
002200 


002202 


-SBTTL DEFAULT HARDWARE P- TABLE 


$e 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
3; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
s IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
— 


-WORD 1L10000-L $HW/2 


LSHW:: 
OFPTBL:: 
-WORD 176700 sRPCS1 BASE REGISTER ADDRESS 
-WORD 254 ;VECTOR ADDRESS 
-WORD 240 ;BR LEVEL 5S DEVICE 
-WORD O ;DRIVE NUMBER 


L10000: 


SEQ 0023 


a eR ee ee ae 
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1 -SBTTL SOFTWARE P-TABLE 
2 
3 zee 
4 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
5 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
6 g-° 
7 
8 002202 000016 -WORD L10001-L$SW/2 

002204 L$SW: 

002204 SFPTBL 
9 002204 FC: -WORD 0O sFIRST CYLINDER sTESTS: 2-4,6-8,11,13,14,17,18 
10 002206 001165 Lc -WORD 629. sLAST CYLINDER sTESTS: 2-4,6,8-10,14,17,18 
11 002210 000001 iG . WORD 1 ; INCREMENT CYLINDER sTESTS: 2 
12 002212 000000 FT -WORD O sFIRST TRACK sTESTS: 2-7,11,13,16,17 
13 002214 000037 LT -WORD 31. ;LAST TRACK sTESTS: 3-6,11,14,16-18 
14 002216 000001 IT . WORD 1 ; INCREMENT TRACK sTESTS: 11,16,17 
15 002220 000000 FS -WORD O sFIRST SECTOR :TESTS: 2,5-7,13 
16 002222 000061 LS -WORDB 49, ;LAST SECTOR sTESTS: 5,6,14,18 
4 002224 030221 PAT -WORD 030221 ;WRITE DATA PATTERN sTESTS: 16-18 CWORST CASE) 
19 002226 001 REDHOR: .BYTE 1 sREAD HEADER AND DATA CMD FLAG - DEFAULT: YES - SEEK TESTS 2-6 
20 002227 000 TIMTYP: .BYTE 0 ;TYPE TIME - DEFAULT: NO - TIMING TESTS 7-10,14,18 
21 002230 000 TIMSTL: .BYTE O ;TIMING TESTS,STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC 
22 002231 000 STALLF: .BYTE O sSTALL FLAG: AFTER EVERY ORIVE FUNCTION - DEFAULT: NO 
23 sNON-TIMING TESTS 1-6,11,14-18 
24 002232 000 STALRD: .BYTE O ;RANDOM STALL FLAG - DEFAULT: NO - PREREQUISITE: STALLF=1 
25 002233 000 STOFLG: .BYTE 0O sSOFTWARE TIMEOUT INHIBIT FLAG - DEFAULT: NO - ALL TESTS 
26 002234 000 RANPAT: .BYTE 0 sRANDOM WRITE PATTERN - DEFAULT: NO - TEST: 18 
A 002235 000 WRTALL: .BYTE 0O atte; we OVER THE MEDIA FLAG - DEFAULT: NO 

3 : 17, 

= 002236 000 CHANGE: .BYTE 0O ;CHANGE DRIVE PARAMETER FLAG 
31 EVEN 
38 
39 002249 L10001: 


Me 
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-SBTTL GLOBAL EQUATES SECTION 


3¢* 

; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 

Badia 


; 
; BIT DEFINITIONS 


; 

BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11== 4000 
BIT10== 2000 
BITO9== 1000 
BITO6== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITOS== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


é 

BIT9== BITO9 
BIT8== BITOS 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BITe== BITO2 
BITi== BITO1 
BITO== BITOO 


3 
s; EVENT FLAG DEFINITIONS 
s EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


é 

EF .START== 32. ; START COMMAND WAS ISSUED 

EF .RESTART== 31. F 

EF .CONTINUE== 30. s CONTINUE COMMAND WAS ISSUED 

EF .NEW== 29. s A NEW PASS HAS BEEN STARTED 

EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 
: 


5 
s PRIORITY LEVEL DEFINITIONS 


PRIO2== 100 


SEQ 0025 
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GLOBAL EQUATES SECTION 
000040 


PRIO1== 40 
PRIOO== 0 

a 

;OPERATOR FLAG BITS 
j 

EVL== 4 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE == 100000 


Ne 


SEQ 0026 


—_-_ Ce 
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RHXK REGISTERS 


VibwMKH OOD st Nant 


ee pe ee pe 


004090 


-SBTTL RHXX REGISTERS 


sCONTROL AND STATUS REGISTER 1 (RPCS1) 


Ie os 
RDY ss 
A16 es 
A17 ss 
sPSEL =e 
MCPE = 
TRE se 
MSSC ss 


sWORD COUNT REGISTER (RPWC) 


s INTERRUPT ENABLE (BIT 06) 

sREADY (BIT 07) 

sHIGH ORDER BUS ADORESS BIT (BIT 08) 

sHIGH ORDER BUS ADDRESS BIT (BIT 09) 

sPORT SELECT (BIT 10) 

sMASSBUS CONTROL BUS PARITY ERROR (BIT 013) 
; TRANSFER ERROR (BIT 014) 

sSPECIAL CONOITION (BIT 015) 


sCEACH BIT IS CALLED BY BIT NUMBER) 


sBUS ADDRESS REGISTER (RPBA) 


s;CEACH BIT IS CALLED BY BIT NUMBER) 


sCONTROL AND STATUS REGISTER 2 (RPCS2) 


sUS1 ee 
sUS2 ee 
3US4 es 
3;BAI se 
;MSPAT «= 
Ga os 
;IR se 
3;0R os 
MOPE «= 
MxF se 
MSPGE «= 
NEM ss 
NED ss 
UPE ee 
WCE 0 we 
DLT ee 


sDATA BUFFER REGISTER (RPDB) 


sUNIT SELECT (BIT 90) 

sUNIT SELECT (BIT 01) 

sUNIT SELECT (BIT 02) 

sBUS ADDRESS INCREMENT INHIBIT (BIT 03) 
sMASSBUS PARITY TEST (BIT 04) 

sCLEAR (BIT 05) 

s INPUT READY (BIT 06) 

sOUTPUT READY (BIT 07) 

sMASSBUS DATA BUS PARITY ERROR (BIT 08) 
sMISSED TRANSFER ERROR (BIT 09) 
sPROGRAM ERROR (BIT #10) 

sNON EXISTENT MEMORY (BIT 011) 

sNON EXISTENT ORIVE (BIT 012) 

sUNIBUS PARITY ERROR (BIT 13) 

sWRITE CHECK ERROR (BIT 014) 

sDATA LATE (BIT #15) 


sCEACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RPO7 REGISTERS 
sCONTROL AND STATUS 1 REGISTER. 


360 as 
3Fl ss 
3F2 as 
3F3 se 
3F4 ss 
3F5 ss 
DVA “- 


(#00) 


sGO BIT (BIT #0) 

sFUNCTION CODE BIT 01 
sFUNCTION CODE BIT e2 
sFUNCTION CODE BIT 03 
sFUNCTION CODE BIT 04 
sFUNCTION CODE BIT 05 
sDEVICE AVAILABLE (BIT #11) 


SEG oCe27 
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RPO”? REGISTERS 


000001 


100000 


(3 


sORIVE STATUS REGISTER (RPDS) (901) 


sOFFSET MODE 

sERROR WARNING 

sSECTOR INTERLEAVE MODE IS ENABLED TH. H.W 
sVOLUME VALID (BIT #6) 

sORIVE READY (BIT #7) 

sORIVE PRESENT (BIT 08) 

sPROGRAMABLE (BIT #9) 

sLAST SECTOR TRANSFERRED (BIT #10) 

sWRITE LOCK (BIT 11) 

sMEDIUM ON-LINE (BIT 012) 

sPOSITIONING OPERATION IN PROGRESS (BIT 013) 
sCOMPOSITE ERROR (BIT 014) 

sATTENTION ACTIVE (BIT #15) 


sERROR REGISTER 001 (RPERI) (002) 


ss 1 
ss 2 
ae G4 


sILLEGAL FUNCTION (BIT 00) 
sILLEGAL REGISTER (8IT #1) 
sREGISTER MODIFICATION REFUSED (BIT #2) 
sPARITY ERROR (BIT 03) 

sFORMAT ERROR (BIT 04) 

sWRITE CLOCK FAIL (BIT 5) 

sECC HARD ERROR (BIT 06) 

sHEADER COMPARE ERROR (BIT 07) 
sHEADER CRC ERROR (BIT 08) 
sADDRESS OVERFLOW ERROR (BIT 09) 
s INVALID ADDRESS ERROR (BIT #10) 
sWRITE LOCK ERROR (BIT 011) 
sORIVE TIMING ERROR (BIT 012) 
sOPERATION INCOMPLETE (BIT #13) 
sORIVE UNSAFE (BIT 014) 

sDATA CHECK ERROR (BIT 15) 


sMAINTAINABILITY REGISTER 001 (RPMR1)( 003) 


DMO 


== 100000 


sDIAGNOSTIC MODE 


sATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (004) 


3ATO 
sAT1 
3AT2 
3AT3 
3AT4 
3ATS 
sAT6 
sAT7 


se j 
ss 2 
as 4 
== 10 
*= 20 
*= 40 
== 100 
== 200 


sDEVICE O (BIT 00) 
sDEVICE 1 (BIT 1) 
sDEVICE 2 (BIT 2) 
sDEVICE 3 (BIT #3) 
sDEVICE 4 (BIT 04) 
sDEVICE 5S (BIT #5) 
sDOEVICE 6 (BIT 06) 
sDEVICE 7 (BIT 07) 


sDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (005) 


SEG 9526 


RPO” REGISTERS 


D4 
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002090 


s(EACH BIT IS CALLED BY BIT NUMBER) 


sORIVE TYPE REGISTER (RPDT) (006) 


s0T00 3=#2 1 sORIVE TYPE NUMBER BIT 1 

sOTOL oc 2 sORIVE TYPE NUMBER BIT 2 

s0T02 «2 4 sORIVE TYPE NUMBER BIT 3 

s0TO3) == 10 sORIVE TYPE NUMBER BIT 4 

:0T04 s= 20 sORIVE TYPE NUMBER BIT 5 

s0TOS === 40 sORIVE TYPE NUMBER BIT 6 

:0T06 === 100 sORIVE TYPE NUMBER BIT 7 

s0T07— === 200 sORIVE TYPE NUMBER BIT 8 

;0T08 == 400 sORIVE TYPE NUMBER BIT 9 

s0RQ == 4000 sORIVE REQUEST REQUIRED (BIT #11) 
;MOH == 20000 sMOVING HEAD (BIT 013) 

3 TAP == 40000 sTAPE DRIVE (BIT #14) 

sNBA == 100000 sNOT BLOCK ADDRESSED (BIT #15) 


sLOOK-AHEAD REGISTER (RPLA) (007) 


3SCO == 100 sSECTOR COUNT FIELD O (BIT #6) 

3SCl == 200 sSECTOR COUNT FIELD 1 (BIT #7) 

3SC2 == 400 sSECTOR COUNT FIELD 2 (BIT 08) 

3SC3 *= 1000 sSECTOR COUNT FIELD 3 (BIT #9) 

3SC4 == 2000 sSECTOR COUNT FIELD 4 (BIT #10) 

sRPO7 ERROR REGISTER 002 (RPER2) (010) 

WRYUNS == 400 sWRITE OFF TRACK CENTER (WRITE UNSAFE) 
wOoR *= 1000 sWRITE OVERRUN ERROR 

RWU1 *= 2000 3W/R UNSAFE ERROR 1 (WRITE ERROR) 
RwWUe s= 4000 sW/R UNSAFE ERROR 2 (READ OR WRITE ERROR) 
RWUS3 *= 10000 sW/R UNSAFE ERROR 3 (WRITE ERROR) 

PGE == 100000 sPROGRAM ERROR 

sRPO7 ERROR REGISTER 003 (RPER3) 

s0GE ee i sDIAGNOSTIC COMMAND 

DPE ** 10 sDATA PARITY DURING WRITE 

SOF == 20 sSERDES DATA FAILURE 

oCuU == 40 s0C LOW UNSAFE 

Ixu == 100 S INDEX PULSE UNSAFE 

Ovc *= 200 sORIVE CHECK 

PHF «= 400 sTACH CALIBRATE FAILURE 

LCE *= 1000 sLOST CYLINDER (POSITIONER IN GUARD BAND) 
LBC == 2000 sLOST BIT CLOCK 

SKI == 40000 sSEEK INCOMPLETE 

BSE == 100000 sBAD SECTOR 


sOFFSET REGISTER (RPOF) (#11) 
HCI == 2000 sHEADER COMPARE INHIBIT (BIT #10) 


E% 
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RPO”? REGISTERS 


172 
173 
174 
175 


004000 
€10000 
100000 


ECI == 4000 
FMT16 == 10000 


sERROR CORRECTION CODE INHIBIT (BIT 411) 
sFORMAT BIT (BIT #12 


CMOD == 100000 sCOMMAND MODIFIER BIT (BIT #13) 


sDESIRED CYLINDER ADDRESS (RPOC) (012) 
sCEACH BIT IS CALLED BY BIT NUMBER) 


sCURRENT CYLINDER ADDRESS (RPCC) — 
sCEACH BIT IS CALLED BY BIT NUMBER) 


sSERIAL NUMBER REGISTER (RPSN) (014) 


;CEACH IS CALLED 


BY BIT NUMBER) 


sECC POSITION REGISTER (RPEC1) (016) 
sCEACH BIT IS CALLED BY BIT NUMBER) 


sECC PATTERN REGISTER (RPEC2) (017) 
;CEACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RPO7 DRIVER COMMANDS 


NOOP s* 101 
SEEK *= 105 
RECAL == 107 
DRVCLR == 111 
RELSE == 115 
OFFSET == 115 
RTC *= 117 
READIN == 121 
SEARCH == 131 
DIAG *= 135 
ILLCMD == 143 
WCKD *= 151 
WCKHD == 153 
WRIDAT == 161 
FMTRK == 163 
WRTTD == 165 
RODAT == 171 
ROHO = 173 
RDOTD e* 175 


SCTRWC == -256. 


sNO OPERATION 
s SEEK 


;RECALIBRATE 

sORIVE CLEAR 

;RELEASE 

3OF FSET 

sRETURN TO CENTER LINE 
sREAD IN PRESET 

3; SEARCH 

sDIAGNOSTIC MODE 
sILLEGAL COMMAND 

sWRITE CHECK DATA 
sWRITE CHECK HEADER AND DATA 
sWRITE << 

sFORMAT TRACK 

sWRITE ba DSECRIPTOR 
sREAD DAT 

sREAD MEADER AND DATA 
sREAD TRACK DSECRIPTOR 


sDEFAULT WORD COUNT 


sTHE FOLLOWING ARE SPECIAL DRIVER COMMANDS (NOT CONTROLLER COMMANDS ) 


GETREG == 141 


MAINT == 145 
SETFORM == 147 


sREAD RPCS1, RPWC, yy RPDA AND STORE THEM AT ADDRESS 
sPOINTED TO BY ‘DPB’ + 

sWRITE MAINTENANCE REGISTER RPMR1 

sSET FORMAT PSEUDO-CMD: WRITE OFFSET REGISTER. SETFORM 
sFIRST READS RPOF, EXTRACT ITS LO BYTE, CHANGES ITS HI BYTE 
sPER ‘DPB’, MERGES BOTH BYTES 10 WRITE RPOF. HENCE SETFORM 


SEQ 9030 


F 4 
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RPO? DRIVER COMMANDS 


229 
230 
231 


sWRITES RPOF WITH HI BYTE PER ‘DPB’, LO BYTE UNCHANGED. THE 
sCOMMAND OFFSET DOES THE OPPOSITE. 


G4 
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ODD US wlor 


002240 
002242 
002244 
002246 


-SBTTL GLOBAL DATA SECTION 


3¢¢ 


; THE GLOBAL DATA gH a CONTAINS DATA THAT ARE USED 
s IN MORE THAN ONE TEST 


BYPASS:: .WORD 
SVSTAT:: .WORD 


NC1 . WORD 
NC2 - WORD 
NT1 - WORD 
NS1:: . WORD 


TIM.ON:: .WORD 


TIM.PT:: .WORD 
WCEFLG:: .WORD 
DELTA:: 
TRKWC:: .WORD 

STALLi:: .WORD 
STALL2:: .WORD 


sBIT TABLE 

BITS:: .WORD 
. WORD 
. WORD 
. WORD 


0) 
1 
1 
0 
1024, 
0 
0 
0 
0 
0) 


°o 


oo 


° 


ooooooo0o0o0 coooo0oo ooco 
°o 


-<256.425,> 
10. 
10. 


BITOO 
BITO1 
BITO2 
BITOS 


s TEMPORARY LOST REVOLUTION COUNT 
sTYPE SEEK TIMES IF =1 

sTEST ITERATION COUNTER 

s INTERRUPT SERVICE COUNTER 

sTEST ITERATION COUNT; 

sSEARCH SECTOR; TESTS 14. € 18. 

s; TARGET SECTOR; TESTS 14. € 18. 
sUSED TO FORCE TWO ITERATIONS OF AN sen tek 
sCLOCK STATUS (NO CLOCK= 0,KW11-P= 1 OR KW1l-L= -1 
;BYPASS ROUTE ADR; SET IN CALL ERRABO 

sCALLERS; CALL.A/B/C, DRVCAL, SRCHOO 

;STATUS/ERROR INDICATOR IS; SAVED HERE ON AN ERROR 


sLAST PHYSICAL CYL 
sFIRST FE CYL 

sLAST PHYSICAL TRK 
sLAST PHYSICAL SEC 


sCYLINDER READ 
TRACK READ 
sSECTOR READ 
sCYLINDER DESIRED 
sSECTOR DESIRED 

s TRACK DESIRED 


sMINIMUM TIME 

sNUMBER OF COUNTS BELOW MIN. LIMIT 
sMAXIMUM TIME 

sNUMBER OF COUNTS ABOVE MAX. LIMIT 
; TOTAL TIME OF ALL SEEKS 

sNUMBER OF SEEKS PERFORMED 


sMINIMUM TIME 

sNUMBER OF COUNTS BELOW MIN. LIMIT 
sMAXIMUM TIME 

sNUMBER OF COUNTS ABOVE MAX. LIMIT 
sTOTAL TIME OF ALL SEEKS 


sPOINTS TO TABLE OF TIMES 

sFATAL WRITE CHECK ERROR FLAG 

sMEMORY SIZING SCRATCH LOCATION 

sWORD COUNT FOR HALF A TRACK IN 16 BIT MODE 
310 MILLISECONOS STALL 

310 MILLISECONDS STALL 


TESTS 14. € 18. 


SEQ 0032 
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GLOBAL. DATA SECTION 


002372 
002374 
002376 
002400 
002402 
002404 
002406 
002410 
002412 
002414 
002416 
002420 
002422 
002424 
002426 
002430 
002432 
002434 
002436 
002440 


BITO4 
BITOS 
BITO6 
BITO7 
BITOS8 
BITO9 
BIT10 
BIT11 
BIT12 
BIT13 
BIT14 
BIT15 


H4 


SEQ 0033 


CZRJLBO RPO7 FCTNL TEST MACRO VO4.00 1-DEC-83 12:59:38 PAGE 14 


TIMING MESSAGE AND LIMITS TABLES 


002442 004674 
000000 


002446 003103 
002450 003246 


ODN VWSwhoe 


10 

13 002452 004736 

14 002454 005204 
000000 

16 002460 000764 


16 002462 005010 
19 002464 005204 


20 002466 000000 
=. 002470 004374 


23 002472 005055 
24 002474 005204 


25 002476 000000 
+3 002500 010770 
28 002502 005122 
29 002504 000000 
30 002506 


000000 
31 002510 003246 


-SBTTL TIMING MESSAGE AND LIMITS TABLES 


sROTATIONAL TEST TABLES FOR RPO7 ORIVE 
sSOHZ AND 60HZ TABLE 


T7A:: -WORD ROTATE 31ST MESSAGE 
-WORD O 32ND MESSAGE 
-WORD 1603. :LO LIMIT 
«WORD 1702. sHI LIMIT 


;SEEK TEST TABLES 


TIMT10:: .WORD ONECYL 31ST MESSAGE 


-WORD REV 32ND MESSAGE 
-WORD 0 :LO LIMIT 
-WORD 500. sHI LIMIT 
TIMT11:: .WORD AVERGE 31ST MESSAGE 
-WORD REV 32ND MESSAGE 
-WORD O 3LO LIMIT 
«WORD 2300. sHI LIMIT 
TIMT12:: .WORD MXSEEK 31ST MESSAGE 
-WORD REV 32ND MESSAGE 
-WORD O ;LO LIMIT 
-WORD 4600. sHI LIMIT 
T1418:: .WORD MARK 31ST MESSAGE 
-WORD O 32ND MESSAGE 
-WORD O 3LO LIMIT 


. WORD 1702. sHI LIMIT 


SEQ 0034 


CNONE >} 
€16.515MS + 38) 
€16.515MS - 38) 


¢ ) 
(NONE ) 
€16.515MS - 38) 
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TIMING LIMIT(S) TABLES 


O@BnsDUSwtor 


10 


002512 
002514 
002516 


002520 
002522 
002524 


002526 
002530 
002532 


002534 
002536 
002540 


002542 
002544 
002546 


005221 
003103 
003246 


005221 
000000 
000764 
005221 
000000 
004374 
005221 
000000 
010770 
005221 
000000 
003246 


-SBTTL TIMING LIMIT(S 


J4 


) TABLES 


SEQ 0035 


sSPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS 


sROTATIONAL MESSAGE AND LO/HI LIMITS 


sSOHZ AND 60HZ TABLE 


SP7:: -WORD  MSGLMT 
«WORD 1603. 
«WORD 1702. 


s:LIMIT(S) MESSAGE 
sLO LIMIT (€16.515MS + 38) 
sHI LIMIT (€16.515MS - 38) 


sTIMING TEST MESSAGES AND LO/HI LIMITS 


SP10:: .WORD — 


. WORD 

-WORD 500. 
SP1i1:: .WORD MSGLMT 

-WORD O 

-WORD 2300. 
SP12:: .WORD MSGLMT 

-WORD O 

-WORD 46090. 
SP1418:: .WORD MSGLMT 

-WORDB O 

. WORD 1702. 


sLIMIT(S) MESSAGE 
sNO LO LIMIT 
sHI LIMIT (5.0MS) 


sLIMITCS) MESSAGE 
sNO LO LIMIT 
sHI LIMIT (23.0MS) 


| 
| 
;LIMIT(S) MESSAGE 
;NO LO LIMIT 
;HI LIMIT (46.0MS) 
;LIMIT(S) MESSAGE 

| 


sNO LO LIMIT 
sHI LIMIT (€16.515MS - 38) 
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002550 
002551 
002552 
002553 
002554 
002556 


002560 
002561 


002562 
002564 


002566 


002606 


002610 
002611 
002612 
002613 
002614 
002616 


000000 


.SBTTL DRIVE PARAMETER BLOCKS 
DPB.A:: 


OPB.B:: . 


-BYTE 


BYTE 
-BYTE 
. WORD 
. WORD 


BYTE 
BYTE 


“WORD 


Do Oo O gococoee 
nn 


m 
o 


° 
REG 


3€0) DRIVE NUMBER 

3€1) OFFSET VALUE OR FMT16, ECI, AND HCI 
3€2) COMMAND 

3€3) PSEL AND A17 AND A16 

3€4) WORD COUNT (MUST BE NEG. ) 
:€6) BUFFER ADDRESS OR 
sREGISTER TABLE POINTER 

3€10) SECTOR ADDRESS OR 

sFIRST REG. INDEX 

3€11) TRACK ADDRESS OR 

sLAST REG. INDEX 

3€12) CYLINDER ADDRESS 

:€14) ERROR TABLE POINTER 
sPOINTS TO THE FIRST OF TWENTY 
sLOCATIONS OF WHERE THE DRIVER 
:IS TO STORE THE RHXX/RPO7 
sREGISTERS ON AN ERROR. IF LEFT 
;ZERO REGISTERS ARE NOT SAVED. 
3(€16) STATUS/ERROR INDICATOR 
;BI1T15*1=>ERROR OCCURRED 
;BITO7=1=2>DONE 

;BIT14-BITO9 AND BITO6-BITOS3 

s INDICATE TYPE OF ERROR 


:€O) ORIVE NUMBER 
3(€1) OFFSET VALUE OR FMT16, ECI, AND HCI 
(2) COMMAND 


; 

3€3) PSEL AND A17 AND A16 

3€4) WORD COUNT (MUST BE NEG.) 
ADDRESS OR 


sREGISTER TABLE POINTER 

3€10) SECTOR ADORESS OR 

sFIRST REG. INDEX 

3€11) TRACK ADORESS OR 

sLAST REG. INDEX 

3€12) CYLINDER ADDRESS 

3€14) ERROR TABLE POINTER 
sPOINTS TO THE FIRST OF TWENTY 


;ZERO REGISTERS ARE NOT SAVED. 
3€16) STATUS/ERROR INDICATOR 
sBIT15=1=>ERROR OCCURRED 
sBITO7=1=>DONE 

s8IT14-BITO9 AND BITO6-BITOS 
sINDICATE TYPE OF ERROR 


3€O) DRIVE NUMBER 
s€1) OFFSET VALUE OR FMT16, ECI, AND HCI 
3€2) COMMAND 


3€6) BUFFER ADDRESS OR 
sREGISTER TABLE POINTER 


SEQ 0036 
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DRIVE PARAMETER BLOCKS 
58 002620 000 CYTE ©O 3€10) SECTOR ADDRESS OR 
59 sFIRST REG. INDEX 
60 002621 000 -BYTE O 3€11) TRACK ADDRESS OR 
61 sLAST REG. INDEX 
62 002622 000000 «WORD O 3€12) CYLINDER ADDRESS 
63 002624 002754 -WORD REG 3€14) ERROR TABLE POINTER 
64 sPOINTS TO THE FIRST OF TWENTY 
65 sLOCATIONS OF WHERE THE ORIVER 
66 sIS TO STORE THE RHXX/RPO7 
67 sREGISTERS ON AN ERROR. IF LEFT 
68 sZERO REGISTERS ARE NOT SAVED. 
69 002626 000000 -WORD O 3€16) STATUS/ERROR INDICATOR 
70 sBIT15*1=>ERROR OCCURRED 
71 ;BITO7=#1=>DONE 
72 ;BIT14-BITO9 AND BITO6-BITOS 
Lh. sINDICATE TYPE OF ERROR 
75 002630 000 DTADPB:: .BYTE O 3€0) ORIVE NUMBER 
76 002631 000 -BYTE O 3€1) OFFSET VALUE OR FMT16, ECT, AND HCI 
77 002632 000 BYTE 0 3€2) COMMAND 
78 002633 000 BYTE 0 3€3) PSEL AND A17 AND Al16 
79 002634 WORD O 3€4) WORD COUNT er BE NEG.) 
80 002636 042762 WORD OBUFF 3(6) BUFFER ADDRESS OR 
81 sREGISTER TABLE POINTER 
82 002640 000 -<BYTE O 3€10) SECTOR ADDRESS OR 
83 sFIRS G. INDEX 
84 002641 000 BYTE 0 3€11) TRACK ADORESS OR 
85 sLAST REG. INDEX 
86 002642 WORD O 3€12) CYLINDER ADDRESS 
87 002644 002754 WORD REG 3€14) ERROR TABLE POINTER 
88 sPOINTS TO THE FIRST OF TWENTY 
89 sLOCATIONS OF WHERE THE DRIVER 
90 sIS TO STORE THE RHXX/RPO7 
91 sREGISTERS ON AN ERROR. IF LEFT 
92 sZERO REGISTERS ARE NOT SAVED. 
93 002646 000000 -WORD O 3€16) STATUS/ERROR INDICATOR 
94 sBIT15*1=>ERROR OCCURRED 
95 sBITO7=1=>DONE 
96 ;BIT14-BITO9 AND BITO6-BITOS 
97 s INDICATE TYPE OF ERROR 


M34 
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OOnOU Swhre 


000240 


-SBTTL DRIVE AND REGISTER STORAGE 


UNIT:: .WORD 0O sUSED TO SELECT A UNIT FOR TEST 
RPADR:: .WORD 176700 sCONTAINS RPCS1 BASE ADDRESS 

RPVEC:: .WORD 254,5«32. sCONTAINS VECTOR ADDRESS € BR LEVEL 
RHEXT:: .WORD 50 sCONTAINS RH70 OFFSET TO RPBAE 
RHTYPE::.WORD 0 sCONTAINS RHXX TYPE; RH1i1l= 0, RH70= 1 
DRVNO:: .WORD 0 sORIVE NUMBER 

ORVSN:: .WORD 0O s;STORAGE FOR EACH S/N DIGIT 


RPCS1:: .WORD 176700 sBASE ADDRESS USED FOR THE DRIVE 
RPWC:: .WORD 176702 sWORD COUNT REGISTER 

RPBA:: .WORD 176704 sBYTE ADDRESS REGISTER 

RPDA:: .WORD 176706 sDESIRED a ceareten ADDRESS 
RPCS2:: .WORD 176710 sRPO7 STATUS REGISTE 

RPDS:: .WORD 176712 sRPO7 DRIVE STATUS 

RPERi:: .WORD 176714 sRPO7 ERROR REGISTER #1 

RPAS:: .WORD 176716 sRPO7 ATTENTION SUMMARY PSEUDO REGISTER 
RPLA:: .WORD 176720 sRPO7 LOOK AHEAD REGISTER 

RPDB:: .WORD 176722 sRPO7 DATA BUFFER 

RPMR1:;: .WORD 176724 sRPO7 MAINTENANCE REGISTER 1 
RPDT:: .WORD 176726 sDORIVE TYPE REGISTER 


RPSN:: .WORD 176730 sRPO7 SERIAL NUMBER 
RPOF:: .WORD 176732 sRPO7 OFFSET REGISTER 
RPOC:: .WORD 176734 sRPO7 DESIRED CYLINDER 
RPCC:: .WORD 176736 sRPO7 CURRENT CYLINDER 
RPER2:: .WORD 176740 sRPO7 ERROR REGISTER #2 
RPER3S:: .WORD 176742 sRPO7 ERROR REGISTER 03 
RPEC1:: .WORD 176744 sRPO7 ERROR POSITION 
ee «WORD 176746 sRPO7 ERROR PATTERN 
RPBAE:: .WORD 176750 sRH70 REGISTER 

RPCS3:: .WORD 176752 sRH70 REGISTER 


sATTENTION BITS TABLE CATABIT=8 BYTES) 
sTHIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
sATTENTION BIT 


ATABIT::.BYTE 1 sORIVE O 
-BYTE 2 sORIVE 1 
“BYTE 4 sORIVE 2 
-BYTE 10 ;ORIVE 3 
-BYTE 20 sORIVE 4 
-BYTE 40 sORIVE 5S 
-BYTE 100 sORIVE 6 
-BYTE 200 sORIVE 7 


; STORAGE FOR DEVICE REGISTERS 


3 
REG:: -BLKW 22. sSAVE REGISTERS HERE 


SEQ 0038 


a eA SP a LE Ree te ch cars i er NNR Aa 


NS 
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GLOBAL. TEXT SECTION 


122 


122 


120 


120 


-SBTTL GLOBAL TEXT SECTION 


so 
+ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

s MORE THAN ONE TEST. 

 Bolieg 


sNAMES OF DEVICES SUPPORTED BY PROGRAM 


H 

LSDOVTYP:: 
-ASCIZ /RPO7/ 
EVEN 


; TEST DESCRIPTION 


4 

L$DESC:: 
-ASCIZ /RPO7 FUNCTIONAL TEST/ 
.EVEN 


s FORMAT STATEMENTS USED IN PRINT CALLS 
3 


CRLF:: .ASCIZ /sN/ 
DH25A:: .ASCIZ /#ADRIVE 801sN/ 


DH44A:: .ASCIZ /#ACYL SD3SA. TRK SD28A. SEC sD2NA. / 

DH44D:: .ASCIZ /#ARPER2 (HEX) STSTSTST/ 

E:: .ASCIZ pres RPCS1 RPWC RPBA RPDA RPCS2 RPODS/ 
/ 


2 SNSOESA SO6SA SOESA #06 
DH44G:: .ASCIZ /SNSARPER1 RPAS RPLA RPOB RPMR1 RPOT RPSN/ 
3 SNSO6SA SO6SA sOENA 


. S068A SO6SA SO06SA 806 
DH44I:: .ASCIZ /sNSARPOF RPOC RPCC RPER2 RPERS RPEC1 RPEC2/ 
DH44J:: .ASCIZ /SNSO6SA SO6SA S068A S06SA SO06SA SO068A s068N/ 


DH4SA:: .ASCIZ /SADRIVE CYL TRK SECSN/ 

DH458:: .ASCIZ /#05SA SD3SA. SD38A. SD3SA.SN/ 

DH4SC:: .ASCIZ /#AGDCYL GDOTRK GDSEC BDCYL BDTRK BDSECsN/ 

DH450:: .ASCIZ /SD38A.SS3SD3SA.SS3ISDISA. SS3SD3SA. SS3SD3S8A.SS3ND3NA. SN/ 


: .ASCIZ /#ADRIVE CYL TRK SEARCH-SEC TARGET-SECSN/ 
DHS28:: .ASCIZ /#O0SHA SD3SA. SD38A.SSESD3SA.SSESD3NA. SN/ 


NOCLK:: .ASCIZ /sNSANO P-CLOCK, TIMING TESTS WILL NOT BE EXECUTEDSN/ 
OSNMSG:: .ASCIZ /SNSADRIVE #018A, PG/ 

SNDIGT:: .ASCIZ /sT/ 

WRTENM:: .ASCIZ /SNSATEST SD28A. SKIPPED, NOT ENABLED BY USERSN/ 
SEAERR:: .ASCIZ /#AUNRECOVERABLE SEARCH ERRORSN/ 

SEABAD:: .ASCIZ /#ASEARCH FAILED AFTER 16. RETRIESSN/ 

ABOTST:: .ASCIZ /#SAABORT TESTSN/ 

POSERR:: .ASCIZ /SAPOSITION ERROR, TEST ABORTEDSN/ 


ROTATE:: .ASCIZ /sNSAROTATIONAL SPEED TIMESsNSA « / 


SEQ 0039 


B44 
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-ASCIZ 
-ASCIZ 
-ASCIZ 


" ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


/@NBAONE CYLINDER SEEK TIMESSNSBA «¢ FURWARD/ 
/@NBAAVERAGE SEEK TIMESSNSA « FORWARD/ 
/@NBAMAXIMUM SEEK TIMESs@iA «© FORWARD/ 
/@NBAADDRESS MARK DETECT TIMESSNSA « / 

/@A @ FORWARD/ 

/@A @ REVERSE/ 

/@A @ LIMIT(S)/ 


/@NSADRIVE SO018A UNSAFESN/ 
/SNBADRIVE S018A NON-EXISTENTON/ 
/@NBADRIVE SO1SA OFF -LINESN/ 
/@NSADRIVE SO18A NOT AN RPO7SN/ 


ASCII MESSAGE SECTION 


/RHXX CONTROL BUS PARITY ERROR MCPI-1/ 

/RHXX DATA BUS PARITY ERROR MOPE=1/ 

/RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE ,MXxF )/ 
/WRITE CHECK ERROR/ 

/DATA LATE ERROR/ 

/ORIVE PROGRAMMING ERROR (PGE )/ 

/LOSTS BIT CLOCK (LBC)/ 


/WRITE CLOCK FAILS/ 

/WRITE LOCK ERROR/ 

/DATA ERROR (DCK)/ 

/ORIVE BUS PARITY ERROR (DPE)/ 
/ILLEGAL CONDITIONS SET CILF,ILR,RMR)/ 
ADDRESSING ERROR (IAE, AOE )/ 

/SEEK ERROR (SKI,LCE)/ 


@CLOCK (KW11-P) OVERFLOW IN TIMING TESTa 
ZEARLY WARNING (EWN)/ 

/READ € WRITE HEAD FAILS/ 

/DATA FORMAT BIT ERROR (FER)/ 

/HEADER INFORMATION ERROR (HCE )/ 

SORIVE HAS BECOME NON-EXISTENTS 

@ORIVE HAS NOT RESPONDED TO PORT REQUESTS 
@SOFTWARE TIMEOUT ON THIS DRIVES 


SFATAL MASSBUS PARITY ERROR (MCPE=1 OR PAR=1)a 
GOFFLINE OR UNSAFE DRIVE REQUESTEDS@ 
/WRITE-READY UNSAFE/ 


/PROCESSOR HANDSHAKE FAILURE/ 
/DRIVE OFFLINE OR NOT AN RPO7/ 


/OPERATION INCOMPLETE (OPI)/ 

IMPROPER HEADER DATA/ 

ZECC LOGIC FAILURE/ 

/MISC DRIVE ERROR; RPER1, RPER2, RPER3S/ 
/ORIVE TIMING ERROR (DTE)/ 

/HEADER CRC ERROR (HCRC)/ 
/UNCORRECTABLE ECC ERROR/ 


/LAST BLOCK TRANSF ‘'LBT’ NOT SET AFTER READING LAST SECTOR/ 


SEG G0&O 


C4 
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128 007427 101 104 122 EMS1:: .ASCIZ /ADRS OVERFLOW BIT ‘AOE’ NOT SET AFTER READING LAST SECTOR/ 

129 007521 114 117 123 EMS2:: .ASCIZ /LOST REVOLUTION ERROR/ 

180 007547 122 126 104 EM54:; .ASCIZ /RPDS, ‘OM’ NOT SET ON OFFSET CMD/ 

131 007610 122 120 104 EM55:: .ASCIZ /RPDS, ‘OM’ NOT RESET ON RETURN-TO-CENTER-LINE CMD/ 

138 EVEN 

14? 


D4 
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GLOBAL ERROR REPORT SECTION 


Suter 
8 
s 
o 
“ 
fu 


007672 013746 002302 


@nou 
8 
GN 
NN 
0 
4 
fu 
~ 
~ 
on 
~ 
~ 
~ 
> 
3 


010006 012746 000001 


11 010022 013746 002766 


12 
13 010076 012746 003354 


14 010116 013746 0035004 


010162 010690 


. SBTTL 


DH44:;: 


GLOBAL ERROR REPORT SECTION 


MOV 
MOV 
MOV 


REG+40, -( SP) 
@177400,(SP) 

PC ,OCTHEX 
OPSTACK +6, -( SP) 
OPSTACK +4, -(SP) 
OPSTACK +2, -(SP) 
poh gE 


sPRINT ‘DRIVE RPCS1 RPWC 
#1,-(SP) 
SP 


sPRINT ‘RPER1 RPAS RPLA 


sPRINT RPER2 ERROR CODE IN HEX 


RPBA 


RPOB 


SEQ 0042 


RPDA RPCS2 RPDS’ 


RPMR1 RPDT RPSN’ 


E4 
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15 
16 


17 


22 


23 
24 


29 


010164 
010166 


010172 
010176 


010272 
010274 


104415 
062706 


012746 


000022 


003525 
000001 


1$: 


L10002; 


OH45:: 


TRAP 
ADD 


CSPNTX 
#22,SP 


D 

m 

o 

* 
> 
°o 

‘ 

a 
NNnNnNnNnNWwW 
VVUVVVVVV 
weveuvrvuvysr 


@cCRLF, -(SP) 
@1,-C(SP) 

SP ,RO 
CSPNTB 

04 ,SP 


C$mMSG 


@DH45A, -( SP) 
#1, -(SP) 


sPRINT 'RPOF RPDC RPCC 


3IS IT RH70 CONTROLLER ? 
;BR IF NO 
;PRINT ‘RPBAE RPCS3’ 


;CR-LF 


RPER2 RPERS RPEC1 


SEQ 0043 


RPEC2’ 


F d| 
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30 


31 


32 
33 


40 


41 
42 


010440 


010532 


010536 
010542 


010702 
010702 
010706 


012746 
012746 
010600 
104414 
062706 


104423 


013737 
113737 


013746 
012746 


000014 
004027 
000001 


0030€7 


TRAP 
ADD 
MOV 


CSPNTB 
#14,SP 
#DH4SC, -¢SP) 


3CR-LF 
#1,- SP) 


OTADPB+12,CYL.D0S ;GET DESIRED CYLINDER 
DTADPB+11,TRK.DS ;GET DESIRED TRACK 


#16,SP 


@CRLF , -(SP) 
41, -(SP) 

SP ,RO 
CsPNTB 
04,SP 


C$MSG 


:CR-LF 


DRVNO, -CSP ) 
@DH2S5A, - CSP) 


SEQ 0044 


G4 
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47 
48 


49 
50 


010712 
010716 
010720 
010722 


010726 
010732 
010736 
010740 
010742 
010746 
010746 


012746 
010600 
104414 
062706 


012746 
012746 
010600 
104414 
062706 


104423 


000002 


1.10005: 


MOV 
MOV 
TRAP 
ADD 


MOV 
MOV 
MOV 
TRAP 
ADD 


TRAP 


H2, -( SP) 


#1, -CSP) 


04 ,SP 
C$MSG 


3CR-LF 


SEQ 0045 


H4 
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SEQ 0046 
GLOBAL. SUBROUTINES SECTION 


: -SBTTL GLOBAL SUBROUTINES SECTION 

3 :*SAVE RO-RS 

a4 3*CALL: 

be) 3% JSR PC,SAVREG 

6 010750 SAVREG: 

7 010750 010046 MOV RO, -( SP) 33;PUSH RO ON STACK 

8 010752 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

9 010754 010246 MOV R2,-CSP) 33;PUSH R2 ON STACK 

10 010756 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 

11 010760 010446 MOV R4,-(SP) 3sPUSH R4 ON STACK 
12 010762 010546 MOV RS, -(SP) 33;PUSH RS ON STACK 
13 010764 016646 000020 MOV 20(SP),-(SP) 3;SAVE PUSHED PARAMETER 
14 010770 016646 000020 MOV 20(SP), -(SP) 3;SAVE PC OF MAIN FLOW 

15 010774 016646 000020 MOV 20(SP), -( SP) :;SAVE PC OF SAVREG CALL 
*. 011000 000207 RTS 

18 ;*RESTORE RO-RS 

19 3*#CALL: 
20 34 JSR PC,RESREG 
21 011002 RESREG: 
22 011002 012666 000020 MOV C(SP)+,20(SP) ssRESTORE PC OF RESREG CALL 
23 011006 012666 000020 MOV CSP )+,20(SP) ssRESTORE PC OF MAIN FLOW 
24 011012 012666 000020 MOV CSP)+,20(SP) ; sRESTORE PUSHED PARAMETER 
25 011016 012605 MOV CSP)+,R5 3sPOP STACK INTO RS 
26 011020 012604 MOV (SP)+,R4 :3POP STACK INTO R4 
27 011022 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
28 011024 012602 MOV (SP)+,R2 33POP STACK INTO Re 
29 011026 012601 MOV (SP)+,R1 ;3;POP STACK INTO R1 

30 011030 012600 MOV (SP)+,RO ;:POP STACK INTO RO 

31 011032 000207 RTS PC 


14 
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OnOU Suter 


011034 
011040 
011044 
011050 
011056 
011060 
011064 
011070 
011072 
011074 
011102 
011104 
011106 
011110 
011116 
011120 
011124 


011126 
011130 
011134 
011136 
011140 
011144 
011150 
011152 
011154 
011156 
011162 
011164 
011170 
011174 


002660 
002662 
000004 


011120 
000050 
000012 


000050 
000074 
011126 


002660 


001400 
000003 


176377 


002662 
000004 


sAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR 


332 REGISTERS 
;CALL 
H JSR 


PC,SIZE70 


sCALL ROUTINE 


; 
sRS MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS 


SIZE70: CLR 
CLR 


1$; TST 


2s: MOV 


3$: MOV 


4$: MOV 


RHE XT 
RHTYPE 
ERRVEC, -(SP) 
#2$ ,ERRVEC 
CRS),RO 
#50,RO 
#10. Re 
(RO)+ 
CRO)+ 

#50 ,RHEXT 
CRO)+ 

Re 


1$% 
074 ,RHEXT 
3% 
o3$,(SP) 


CRS),RO 

RHEXT ,R2 

4% 

RO,R2 
@A17!A16,(RO) 
+ Shia 


(R2) 

CRO), -(SP) 
@tC<A17!A16>,(SP 
as 


RHTYPE 
(SP )+ ,ERRVEC 
PC 


;CLEAR RPBAE OFFSET 

sCLEAR RHXX TYPE REGISTER (RH11) 
sSAVE CONTENTS OF ERROR VECTOR 
sSETUP ‘TRAP’ RETURN ADDRESS 

sGET RPCS1 ADDRESS 

sGET REGISTER OFFSET FOR RH70 
sGET NUMBER OF REGISTERS TO CHECK 
;TRAP IF NOT A VALID RPBAE 

s;TRAP IF NOT A VALID RPCS3 

sLOAD OFFSET FOR RPBAE (22 REGISTER RH) 
sTRAP IF NOT A VALID REGISTER 
sDONE WITH ALL 32 REGISTERS ? 


;BR IF NO 
sLOAD OFFSET FOR RPBAE (32 REGISTER RH) 
sSETUP RETURN ADDRESS 


sGET RPCS1 REGISTER 

sGET RPBAE REGISTER OFFSET 

3BR IF NONE 

:GET RPBAE REGISTER 

sSET EXTENDED ADDRESS BITS IN RPCS1 
sARE THE EXTENDED BITS SET IN RPBAE ? 
;BR IF NO 

sCLEAR EXTENDED ADDRESS BITS IN RPBAE 
sSAVE RPCS1 REG CONTENTS 


SEQ 0047 


d+ sARE THE EXTEND BITS CLEAR IN RPCS1 ? 


;BR IF NO 
;SET RHXX TYPE REGISTER (RH70) 
sRESTORE CONTENTS OF ERROR VECTOR 
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J4 


; 

s*#THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 
;*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
3#A_16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
s*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 


SEQ 0048 


3s THE HIGH DIVIDEND MUST BE < 172 
s AS LARGE AS THE DIVISOR 


;sQUOTIENT & REMAINDER ARE ON THE STACK 


DIVIDE OVERFLOW OCCURRED 
ATTEMPTED TO DIVIDE BY ZERO 


OVERFLOW DIVIDE BY ZERO 

ALL ZEROS ALL ONES 

ALL ZEROS ALL ONES 

DIV STATUS WORD: RESERVED TO SET C AND V BITS 


3sPUSH RO ON STACK 

3sPUSH R1 ON STACK 

ssPUSH R2 ON STACK 

ssPUSH R3 ON STACK 

ssSAVE A PLACE FOR SIGNS 
3sSETUP THE ITERATION COUNTER 
3sPICKUP THE DIVIDEND 


3;CHECK THE SIGN 

;3;KEEP TRACK OF THE SIGN 
3:AND NEGATE THE ORIGINAL 
3: sNUMBER 


+sPICKUP THE DIVISOR 

ssCHECK THE SIGN 

ssDIVISOR OF O IS A NO-NO 

s3SET “V" & “C” IN DIV STAT WORD 
+3SET REMAINDER TO ALL ONES 


3;EXIT 
33;KEEP TRACK OF DIVISORS SIGN 


ssNEGATE THE ORIGINAL NUMBER 
ssCLEAR “C” IN PSW 

ssSTART FORMING QUOTIENT 
ssPOSITION MSB'S 


3 sCOPY 

ssCOMPARE DIVIDEND &€ DIVISOR 
33BR IF DIVIDEND > DIVISOR 
ssREMAINDER AFTER THIS LOOP 
ssQUOTIENT BIT ENTERS HERE 


1 INTEGER DIVIDE ROUTINE 
e 
3 
5 
6 :*SAVE SIGN AS THE DIVIDEND. 
7 3*CALL: 
8 3% MOV LOW DIVIDEND, -(SP) 
9 7* MOV HIGH DIVIDEND, -( SP) 
10 34 MOV DIVISOR, -( SP) 
11 34 JSR PC, $DIV 
12 3” RETURN 
13 3* "y"s0 IMPLIES NO ERROR 
14 Hod “V"=l1 IMPLIES ERROR OCCURRED 
15 374 "C"=0 
16 34 "Ge 
17 3* 
18 Hod 
19 :* STACK NO ERROR 
20 
21 34 TOP REMAINDER 
22 i” +2 QUOTIENT 
23 
24 
25 011176 005046 $DIV: CLR -(SP) 3;CLEAR 
26 011200 010046 MOV RO, -(SP) 
27 011202 010146 MOV R1,-(SP) 
28 011204 010246 MOV R2,-CSP) 
29 011206 010346 MOV R3,-CSP) 
30 011210 005046 CLR -(SP) 
31 011212 012746 000021 MOV #17.,-CSP) 
32 011216 016601 000024 MOV 24(SP),R1 
33 011222 016600 000022 MOV 22(SP),RO 
34 011226 100005 BPL 1$ 
35 011230 105366 000003 DECB 3( SP) 
36 011234 005400 NEG RO 
37 011236 005401 NEG R1 
38 011240 sBC RO 
39 011242 016602 000020 18: MOV 20(SP),R2 
40 011246 002407 BLT es 
41 011250 003011 BGT 3% 
42 011252 7 000003 000014 BIS @3,14(SP) 
43 011260 012700 177777 MOV #-1,RO 
44 011264 000424 BR 7$ 
45 011266 000002 2s: INC 2(SP) 
46 011272 000401 BR 3 
47 011274 005402 3%: NEG R2 
48 011276 000241 4$: CLC 
49 011300 000405 BR 6% 
50 011302 006100 5%: ROL RO 
51 011304 010003 MOV RO,R3 
52 011306 060203 ADD R2,R3 
53 011310 103001 Bcc 5 
011312 010300 MOV R3,RO 
55 011314 006101 6%: ROL R1 
56 011316 005316 DEC (SP) 
57 011320 001370 BNE 5% 


3 s3DONE? 
3;8R IF NO 
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011322 


011416 


000002 000014 


000001 


000020 
000016 


7$: 
8$: 


9$: 


10$: 


11$: 


Kd 


SEQ 0049 


R1 ; ;OVERFLOW? 
8$ ;;BR IF NO 
#2,14(SP) 33SET “V” IN DIV STATUS WORD 
RO +;SET REMAINDER TO ALL ZEROS 
RO,R1 3;COPY REMAINDER INTO QUOTIENT 
(SP )+ 3;CLEAR COUNTER FROM STACK 
(SP) s sREMAINDER SIGN CORRECTION NEEDED? 
9$ ;;BR IF NO 
RO 3; sNEGATE REMAINDER 
1(SP) 3;CLEAR SIGN 
(SP) ;3BUT DON'T FORGET QUOTIENT 
(SP )+ ; sQUOTIENT SIGN CORRECTION NEEDED? 
10$ ;;BR IF NO 
R1 3 sNEGATE QUOTIENT 
R1,20¢SP) ;;RETURN QUOTIENT AND 
RO,16(SP) ; sREMAINDER TO USER 
(SP)+,R3 33;POP STACK INTO R3 
(SP)+,R2 33;POP STACK INTO R2 
CSP)+,R1 33POP STACK INTO R1 
(SP)+,RO 33;POP STACK INTO RO 
(SP )-+ ;;COPY C IN PSW PER C IN DIV STAT WORD 
3;CLEAR V IN PSW 
11$ 3:V*0 IN DIV STAT WORD, EXIT 
3:V21 IN DIV STAT WORD, COPY V IN PSW 
CSP)+, (SP) ;;MOVE RETURN ADR UP ONE PLACE, OVERRIDING DIVISOR 
PC ;sRETURN WITH SP POINTING TO REMAINDER 
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OOnNOUVS Whe 


000012 


000014 


000021 


000012 
000010 


1$: 


2s: 


3$: 
4$: 


S$: 


INTEGER MULTIPLY ROUTINE 


MULTIPLER, -( SP) 


L4 


MUL TIPLICAND, -( SP) 


PC, $MULT 


PRODUCT 


RO, -CSP) 
Ri, -CSP) 
Re, -(SP) 
-(SP) 
12(SP),R1 
1$ 
(SP) 
R1 
14(SP),R2 
es 

(SP) 

R2 


RO,12(SP) 
R1,10(SP) 
(SP)+,R2 
(SP)+,R1 


ssPRODUCT IS ON THE STACK 


33PUSH RO ON STACK 

33PUSH R1 ON STACK 

33PUSH Re ON STACK 

3;CLEAR THE SIGN KEY 

33;GET THE MULTIPLICAND 

33;68R IF PLUS 

3;SET THE SIGN KEY 

3sMAKE THE MULTIPLICAND POSTIVE 
3;GET THE MULTIPLIER 

3;68R IF PLUS 

;;UPDATE THE SIGN KEY 

;3sMAKE THE MULTIPLIER POSTIVE 
33;SET THE LOOP COUNT 

;;SETUP FOR THE MULTIPLY LOOP 
;3DO0N'T ADD IF MULTIPLICAND = 0 


ssPOSITION THE PARITIAL PRODUCT AND 

33; THE MULTIPLICAND 

ee Lee OF THE MULTIPLICAND BEEN DONE? 
33 

3;SHOULD PRODUCT BE NEGATIVE? 

3:GO TO EXIT IF NO 

3;YES--SO MAKE IT SO 


3;CLEAR SIGN INFO. OFF OF STACK 

i. tor PRODUCT ON THE STACK (MSB'S) 
33 ¥ 

33:POP STACK INTO Re 

3sPOP STACK INTO R1 

3sPOP STACK INTO RO 


SEQ 0050 
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O@BnsOuvauwuhr 


011532 


010146 
010246 


011666 


SEQ 0051 


sOCTAL TO HEXADECIMAL CONVERSION ROUTINE 


OCTHEX: MOV 
MOV 


1$: MOV 
2s: ASL 


3$: DEC 


4$: TST 


S$: CMP 


6$: ADD 
7$: DEC 


8s: MOV 


PSTACK: .BLKW 


R1, -(SP) 
Re, -(SP) 
#PSTACK,RO 


3$ 
#BITO,CRO) 
R1 

2s 

CRO)+ 

R2 

1$ 

4,R2 
@PSTACK ,RO 
CRO) 


S$ 

#60, (CRO)+ 
R2 

4s 

8$ 

(RO), 011 
6$ 
960,(RO)+ 
7$ 

#55. ,CRO)+ 
R2 

S$ 


:SAVE R1 

sSAVE Re 

;SET UP THE BUFFER ADDRESS 

;GET THE ITERATION VALUES 

:AND DUPLICATE FOR TWO LOOPS 
;INITIALIZE THE BUFFER 

sMOVE THE PREVIOUS BIT(S) OVER 
;CARRY = O 

sROTATE A BIT FROM THE TEST VALUE 
3IF ZERO, SKIP NEXT INSTRUCTION 
sMARK THE BIT AS BEING SET 

;ONE LESS ITERATION TO GO 

sBUT NOT DONE UNTIL = OG! 

sNEXT BUFFER LOCATION 

sONE LESS ITERATION TO-GO 

;IF NOT ZERO, KEEP GOING! 

;GET THE NEW ITERATION COUNT 
sAND GET THE BUFFER ADDRESS AGAIN 
sCONTENTS ZERO? 

;IF NOT, SKIP NEXT 

;SET THIS CHARACTER = NULL 

;ONE LESS CHARACTER TO GO 

;IF NOT ZERO, KEEP GOING 

sDONE, RETURN! 

; ALPHA OR NUMERTC CHARACTER? 
;IF > 11, ALPHA 

i MAKE NUMERIC ASCII 

;AND GO-ON 

sMAKE HEX ASCII 

;ONE LESS ITERATION TO-GO 

3 ONE Sl tte IF NOT ZERO 


(SP)+,R2 ry: 

(SP)+,R1 ;AND R1 

(SP)+,(SP) MOVE or OVER INPUT VALUE 
PC ;AND RETURN 

10. ;SOTWARE PSEUDO STACK 


N4 
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O@BNDVS Whe 


011712 
011714 
011720 


011766 
011770 


011772 
011774 
011776 


011774 
011772 


011772 
011776 
011774 


011776 


011776 


RAND: 


+SUBR TO GENERATE A PSEUDO RANDOM NUMBER 
;THE NUMBER IS RETURNED IN $RP1 

s THERE ARE 3 SEED VALUES THAT CAN BE SAVED 
3TO GENERATE THE PSEUDO RANDOM NUMBER 


$RNCON: O 


$RP1: 
$RP2: 


RO, -(SP) sSAVE RO 
$RP1,RO ;GET A SEED 


$ 
$RNCON  ; 
RO 


RO 
$RNCON, RO 
$RP2,RO 
RO, $RP1 
RO 


RO 
$RP2,RO 
RO 
RO 


RO, $RP2 
he sRESTORE RO 


SEQ 0052 
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ODA SN hiatoer 


10 


012000 
012004 
012010 
012014 
012016 


012020 


012112 
012114 


012116 


012152 
012160 
012166 


005037 
005037 


012700 
104462 
010005 


103031 


012737 
012737 
023727 


002260 
012244 


000120 


012234 
012236 


012240 
012244 
177777 
012320 


000024 
047040 
012244 


012224 
012226 


002260 


002260 


012214 
012216 
000062 


sDETERMINE IF THERE IS A CLOCK ON SYSTEM. START THE CLOCK. “CLESTA® WILL 

s INDICATE THE CLOCK TYPE. 

3 O= NO CLOCK 

3 el* KW11-P 

Fy -1* KWLIL-L 

sTHIS ROUTINE WILL ALSO SETUP “TICKMS” (TIME PER CLOCK TICK IN MILLISECONDS) 
“4 “TICKUS” (TIME PER CLOCK TICK IN MICROSECONDS) AS PER LINE FREQUENCY. 

F L 


$ JSR PC,ST.CLK sSTART THE CLOCK 
; RETURN 
ST.CLK: CLR CLKSTA sASSUME “NO CLOCK” 


CLR HERTZ sASSUME “UNKNOWN” HERTZ 
:IS THERE A P-CLOCK PRESENT ? 


MOV @'P,RO 
TRAP CsCLCK 
MOV RO,RS 
sGO TO 1$ IF NO 
BCC 1$ 
sSET P-CLOCK P-TABLE € START P-CLOCK 
MOV RS .PCLKTB sSAVE P-CLOCK TABLE ADDRESS 
MOV CRS), PKCS sGET ‘CSR’ ADORESS 
MOV (RS),PKB sMAKE PKB ADDRESS BY 
ADD @2,PKB sADDING 2 
MOV CRS )+ , PKC sMAKE PKC ADDRESS By 
ADO 04 ,PKC sADDING 4 
TST C(RS)-> sSKIP OVER ‘BR LEVEL’ 
MOV CRS)+ ,PKV sGET ‘VECTOR’ ADDRESS 
MOV CRS)+ HERTZ sGET ‘HERTZ’ LINE FREQUENCY 
MOV @1,CLKSTA sSET P-CLOCK FLAG 
= PC,ST.PCLK sSTART P-CLOCK AS A WATCH DOG TIMER 
es 

1%: 3IS THERE A L-CLOCK PRESENT ? 
MOV @’'L,RO 
TRAP CsCLCK 
MOV RO,RS 

3GO TO 3% IF NO 

BCC 3$ 
sSET L-CLOCK P-TABLE, START L-CLOCK 
MOV RS.LCLKTB sSAVE L-CLOCK TABLE ADDRESS 
MOV CRS)+,LKS sGET ‘CSR’ ADORESS 
TST C(RS)> sSKIP OVER ‘BR LEVEL’ 
MOV C(RS)+,LKV sGET ‘VECTOR’ ADDRESS 
MOV CRS)+ HERTZ sGET ‘HERTZ’ LINE FREQUENCY 
MOV @-1,CLKSTA sL-CLOCK FLAG 
JSR PC,ST.LCLK sSTART L-CLOCK AS A WATCH DOG TIMER 
sGET THE CLOCK TICK COUNT 

2s: MOV #20. ,TICKMS sASSUME 20.0 MSEC € 


MOV #20000. ,TICKUS ;20000.0 USEC 
CMP HERTZ, @50. sIS IT SO WERTZ LINE FREQUENCY ? 


SEQ 9053 


cS 
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012174 
012176 
012204 
012212 


012214 
012216 


012220 
012222 
012224 


012226 
012230 


012234 


012236 
012240 


012244 
012246 


012246 
012252 


012310 
012316 
012320 


001406 
012737 
012737 
000207 


000020 
040432 


001021 


000020 012214 
040432 012216 


000106 


000102 


000001 177714 
000115 177704 


000010 
000100 177654 


3$: 


TICK 
TICK 


KWL 
PCLK 


3KW1 
LCLK 


LKS: 
LKV: 


HERT 
ST.P 


18%: 
ST.L 


1%: 
3; THI 
AL 


BEQ 
MOV 
MOV 
RTS 


MS: .WORD 
US: .WORD 


1-P CLOCK 
TB: .WORD 


1-L CLOCK 
TB: .WORD 


Z: WORD 
CLK: 


CLK; 


3$ 
016.,TICKMS 


#16666, , TICKUS 
PC 


16, 
16666. 


;BR IF YES 
sMUST BE 60HZ, 16.666 MSEC € 
316666.0 USEC 


316 MILLISECONDS PER CLOCK TICK 
316666 MICROSECONDS PER CLOCK TICK 


TABLE, CSR REG, PKB REG, PKC REG € VEC ADR 


0 


172540 
172542 
172544 
104,106 


3P-CLK TBL ADR 


sCONTROL E STATUS 
sCOUNT SET BFR 

: COUNTER 

; VECTOR 


TABLE, CSR REG E VEC ADR 


0 


177546 
100, 102 


@1,aPKB 
115, aPKCS 


PC 


3L-CLK TBL ADR 


sCONTROL € STATUS 
; VECTOR 


360 HZ. OR SO HZ. LINE FREQUENCY 


sALLOW SOFTWARE TIMEOUTS ? 
3NO- -BRANCH 
;SETUP VECTOR FOR P-CLOCK 


sCOUNT ONE TICK 

s“INT.EN.”,COUNT DOWN”, “MODE 1 (REPEAT)”, 
3 “LINE FREQ", AND “RUN" 

sRETURN 


sALLOW SOFTWARE TIMEOUTS ? 
3NO- -BRANCH 
sSETUP VECTOR FOR L-CLOCK 


sSTART THE KW11-L 
sRETURN 


. ROUTINE IS USED TO STOP THE SYSTEM CLOCK 


JSR 


PC, STOPCK 


sCALL ROUTINE 


SEG 9054 


D ¥ 
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101 
102 012364 005737 002260 STOPCK: TST CLKSTA ;IS THERE A CLOCK AVAILABLE ? 
103 012370 001410 BEG 2$ :8R IF NO 
104 012372 100404 BMI 1$ ;BR IF L-CLOCK 
105 012374 042777 000101 177620 BIC #101, aPKCS ;STOP THE P-CLOCK 
106 012402 000403 aR 28 
107 012404 042777 000100 177624 18: BIC #100, @LKS sSTOP THE L -CLOCK 
108 012412 000207 2s: RTS PC 
110 ;KW11 CLOCK INTERRUPT SERVICE ROUTINE 
lil 
113 012414 013746 012214 KWSRV: MOV TICKMS, -(SP) sTIME PER TICK IN MILLISECONDS 
114 012420 004737 024104 JSR PC,RPTMR ;COUNT THE ELASPED TIME 
115 012424 L10006: 
om: 012424 000002 RTI 
120 ;THIS SUBROUTINE IS USED TO RELOAD THE CLOCK FOR A 4 SECOND TIMEOUT DURING 
121 3A RECALIBRATE COMMAND 
123 012426 042777 000101 177566 FORSEC: BIC 0101, @PKCS sSTOP CLOCK 
124 012434 017746 177570 MOV BPKV, -(SP) ;SAVE THE OLD CLOCK VECTOR ADDRESS 
125 sSETUP VECTOR FOR P-CLOCK 
126 012440 012746 000300 MOV OPRIO6, -( SP) 
012444 012746 012504 MOV 01%, -(SP) 
012450 013746 012230 MOV PKV, -(SP) 
012454 012746 MOV 03, -(SP) 
012460 104437 TRAP C$SVEC 
012462 062706 000010 ADD #10,SP 
127 012466 012777 000360 177530 MOV 0240, ,8PKB 34 SEC DELAY AT LINE FREQ 
128 012474 012777 000105 177520 MOV 0105, 8PKCS sRUN AT LINE FREQ, DOWN MODE, IE=1 
129 012502 000001 WAIT ;WAIT FOR CLK INTER 
131 012504 042777 000101 177510 1%: BIC 0101, 8PKCS sSTOP CLOCK 
132 012512 012716 012520 MOV 028,(SP) ;ADJUST FOR RETURN 
133 012516 L10007: 
012516 000002 RTI 
134 012520 2s: ;RESTORE OLD VECTOR ADDRESS FOR P-CLOCK 
135 012520 012746 000300 MOV @PRIO6, -( SP) 
012524 012646 MOV (SP)+,-(SP) 
012526 013746 012230 MOV PKV, -(SP) 
012532 012746 MOV 03,-(SP) 
012536 104437 TRAP C$SVEC 
012540 062706 000010 ADD #10, SP 
136 012544 005077 177454 CLR aPKB :CLEAR CLK BFR COUNT 
137 012550 000207 RTS PC 
145 sROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING 
146 sTESTS. THIS STALL IS REQUIRED TO COMPENSATE FOR THE ‘ACCESS READY’ DELAY 
= HIN THE RPO7. THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
i 
149 ' JSR PC, TWOMS 
150 ; RETURN 
152 012552 042777 000101 177442 TWOMS: BIC #101, @PKCS ;STOP THE P-CLOCK 
153 012560 017746 177444 MOV @PKV, -(SP) ;SAVE THE OLD CLOCK VECTOR ADDRESS 
154 ;SETUP VECTOR FOR P-CLOCK 
155 012564 012746 000300 MOV OPRIO6, -( SP) 
012570 012746 012656 MOV 028, -(SP) 


be. 
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012574 
012600 
012604 
012606 
012612 
012620 
012624 
012626 


012722 


012724 
012724 
012730 
012732 
012740 
012746 
012750 
012756 
012764 


013746 


042777 
012716 


000002 
012746 


012230 
000003 


000010 
000310 
002230 


011712 


000101 
012672 


000300 
012230 
000003 


000010 
177302 


002226 


000173 
000173 


000105 
000105 


177404 


177346 
177336 


002572 
002612 


002572 
002612 


18: 
2s: 


L10010: 


3$: 


PKV, -CSP) 


$RP1, -(SP) 
0tC4777,(SP) 
(SP )+, @PKB 
#101, @PKCS 


#101, @PKCS 
03$,(SP) 


OPRIOG, -( SP) 
(SP)+,-C(SP) 
PKV, -(SP) 
03, -(SP) 
CsSvEC 
#10,SP 

aPKB 

PC 


SEQ 0056 


sLOAD THE CLOCK BUFFER 
sRANDOM STALL? 


3NO 

rYeS, FETCH A RANDOM NUMBER 

;GET RANOOM NUMBER 

sLIMIT IT TO 25 MSEC 

sADD IT TO THE BASIC 2 MSEC STALL 
;START THE CLOCK 

sWAIT FOR 2 MS 

;STOP THE P-CLOCK 

;ADJUST FOR RETURN 


sRESTORE OLD VECTOR ADDRESS FOR P-CLOCK 


;SET COUNT = 0 
sRETURN 


sTHIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK — 


sINTO OPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF REDHOR FL 


sTHAT CAN BE ALTERED BY THE OPERATOR. 


;CALL 
3 
3 


LOCMD: 


1%: 
2s: 


JSR 


RETURN 


PC,LOCMD 


REDHOR 
1% 


@ROHD , DPB .B+2 
 aeenaiaitiiia 


300 EXPLICIT SEEKS FOR VERIFYING ? 
;NO - -BRANCH 

iNO- -SET UP FOR READ HEADER AND 
sDATA COMMAND 


2 
@SEEK ,OPB.B+2 ;SETUP FOR SEEK COMMAND 


@SEEK ,DPB.C+2 
PC 
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SEQ 9057 


1 
2 sERROR ANALYSIS ROUTINE 
3 ;RO NOT USED 
4 3;R1 DPB ADDRESS 
> 3R2 BASE ADDRESS OF SAVED REG'S TABLE 
6 3;R3 TEMP STORAGE 
7 3R4 
4 ;R5 LINK AND RET 
d 
10 3 CALLING SEQ: 
1l 3 JSR RS,ERRANY 
12 3 OPB 
13 3 RET 
14 
15 012766 ERRANY: 
012766 010146 MOV R1,-CSP) 3;PUSH R1 ON STACK 
012770 010246 MOV R2, -CSP) 33PUSH R2 ON STACK 
012772 010346 MOV R3,-C(SP) 3sPUSH R3 ON STACK 
012774 010446 MOV R4,-C(SP) :3PUSH R4& ON STACK 
16 012776 005037 002264 CLR SVSTAT sPROGRAM FLAGS: EACH BIT INDICATES ERROR TYPE 
17 013002 012501 MOV CRS5)+,R1 ;0PB ADDRESS 
18 013004 016102 000014 MOV 14(R1),R2 sADDRESS OF SAVED REGISTER TABLE 
19 013010 016237 000036 092276 MOV 36(R2),CYL.RD }GET CURRENT CYLINDER 
20 013016 116237 000006 002302 MOvVB 6(R2),SEC.RD ;GET CURRENT SECTOR 
21 013024 116237 000007 002300 MOVB 7(R2), TRK.RD ;GET CURRENT TRACK 
22 013032 126127 000002 000150 CMPB 2(R1),0150 :IF DATA TFR CMD 
23 013040 002402 BLT 1$ 
24 013042 004737 014322 JSR PC ADJUST ; THEN GET THE DECREMENTED SECTOR ADDRESS 
25 013046 032712 020000 1$: BIT @MCPE , (R2) sMCPE ERROR ? 
26 013052 001406 BEQ § ;BRANCH IF NOT 
27 013054 104456 TRAP CSERHRD 
013056 000001 . WORD 
013060 005420 . WORD EM1 
013062 007672 - WORD OH44 
. 013064 000137 014156 JMP 32% ;EXIT 
30 013070 032762 020400 000010 2%: BIT @MDPE!UPE,10(R2) ;DATA PARITY PROBLEM ? 
31 013076 001414 BEQ 43 sBRANCH IF NONE 
32 013100 032762 100000 000042 BIT @BSE ,42(R2) ;SEE IF BAD SECTOR DETECTED, 
33 013106 001402 BEQ 3% ;BRANCH IF NOT, ELSE 
34 013110 000137 014310 JMP 42% 3sEXIT 
35 013114 38: 
013114 104456 TRAP CSERHRD 
013116 000002 WORD 2 
013120 005465 . WORD EM2 
013122 007672 . WORD DH44 
3 013124 000137 014166 JMP 33% sEXIT 
38 013130 032762 017000 000010 4%: BIT ONED !NEM!MSPGE !MXF,10(R2) ; ILLEGAL CONDITIONS ? 
39 013136 001412 BEQ 5% 3 H IF NONE 
40 013140 032762 040000 000012 BIT ERR, 12(R2) sANY DRIVE ERROR ? 
41 013146 001006 BNE 5% sREPORT THE DRIVE ERROR 
42 013150 104456 TRAP CSERHRD 
013152 000003 » WORD 3 
013154 005527 WORD EM3 
013156 007672 WORD DH44 
43 013160 000137 014166 JMP 33% ;EXIT 


G5 
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a4 
45 
46 
47 


013164 
013172 
013174 
013176 
013200 
013202 
013204 


013210 
013216 
013220 
013222 
013224 
013226 
013230 


013376 


032762 
001406 
104456 
000004 


040000 


014166 
100000 


014166 
040000 
014310 
100000 


014176 
002000 


014206 


000010 


000010 


000012 


000042 


000014 


000014 


000014 
000014 


5$: 


6$: 


7$: 


108%: 


118%: 


12%: 


#wCE , 10(R2) 
6$ 

CSERHRD 

4 

EM4 

DH44 

33$ 
ane 


$ 
CSERHRD 
5 


#ERR, 12(R2) 
8s 

42% 

OPGE ,40(R2) 
9$ 

CSERHRD 

6 


ees 


OTE ,14(R2) 
17% 
@0CK ,14(R2) 
18% 


SEQ 0058 


sANY DATA PATTERN ERROR ? 
NONE 


sBRANCH IF 


sEXIT 


sANY DATA LATE ERROR ? 
sBRANCH iF NONE 


sEXIT 


sANY DRIVE ERROR ? 
sBRANCH IF ANY 
3;EXIT 


sDRIVE PROGRAMMING ERROR ? 
NONE 


;BRANCH IF 


sEXIT 


sLOST BIT CLOCK ? 
;BRANCH IF NONE 


;EXIT 


sWRITE CLOCK FAILS ? 
sBRANCH IF NONE 


sEXIT 

sWRITE LOCK ERROR ? 
sBRANCH IF NONE 
sEXIT 


sDATA ERROR ON DRIVE ? 


sREPORT THE DRIVE TIMING ERROR 


sANY DATA ERROR ? 
sBRANCH IF NONE 


HS 
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93 
95 


013410 
013416 
013420 
013426 
013430 
013432 
013434 
013436 
013440 


013512 


013576 


032762 
2 


000100 
010040 


014206 
010040 


014206 


014206 


014206 


014216 
003000 


014226 


000014 
000044 


000044 


000014 


000014 


13$: 


14$: 
15$: 


16$: 


17$: 


18%: 


19%: 


20%: 


#ECH,14(R2) 
14$ 


sECH SET, THEN RPEC1=10040 


sEXIT IF NOT SET 


sLEGICAL POSITION REG CONTENTS ? 


s INTERFACE PROBLEM ? 
F NONE 


#10040 ,44(R2) sPOSITION REG=10040 
15$ sREPORT ECC LOGIC FAILURE 

CSERHRD 

47 

EM47 

DH44 

35$ ;EXIT 

#10040 ,44(R2) 

16$ ;BRANCH IF SO 

CSERHRD 

43 

EM43 

OH44 

35% 3;EXIT 

CSERHRD 

13 

EM13 

OH44 

35$ ;EXIT 

CSERHRD 

45 

EM45 

DH44 

35$ sEXIT 

@DPE ,42(R2) sDATA BUS PARITY ? 
9$ ;BRANCH IF NONE 
CSERHRD 

14 

EM14 

OH44 

35% ;EXIT 

#ILF PILR!RMR,14(R2) 

20% sBRANCH I 
CSERHRD 

15 

EM15 

OH44 

36% sEXIT 
@IAE!A0E,14(R2) ;POSITION ERROR 

21% sBRANCH IF NONE 

CSERHRD 

16 

EM16 

NH44 

378% sEXIT 


SEQ 0059 


[5 
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020000 000014 21%: 


013742 
013750 
013752 
013754 
013756 
013760 
013762 


014016 


014022 
014022 
014024 
014026 
014030 


032762 


014226 
041000 


014226 
000002 


014236 


000014 
177057 
000720 


014246 
000020 


014246 


014246 


000042 


000012 


000014 


000014 
000014 


22s: 


23%: 


243: 


258: 


27s: 


#OPI,14(R2) sOPERATION INCOMPLETE ? 
22s sBRANCH IF SO 

CSERHRD 

41 

EM41 

OH44 

37% sEXIT 

@SKT!LCE,42(R2) ;SERVO OR ACTUATOR SEEK ERROR ? 
23% sBRANCH IF NONE 

CSERHRD 

17 

EM17 

DH44 

37% 

EWN, 12(R2) sPROBLEM ? 

24s sBRANCH IF SO 

CSERHRD 

21 

EMe1 

OH44 

38$ sEXIT 

14(R2),R3 sCHECK IF HEAD MISSING 


@tC<FERIECH!HCRC!HCE>,R3 ;CHOP THE REST BITS 
OFER!ECH!HCRC!HCE ,R3 sMISSING HEAD ? 


25% ;BRANCH IF NOT 
CSERHRD 

22 

EM22 

OH44 

39% 3;EXIT 

OFER,14(R2) sFORMAT ERROR ? 

26% ;BRANCH IF NOT 
CSERWRD 

23 

EM23 

0H44 

39% 3;EXIT 
@HCRC!HCE,.14(R2) ;HEADER INFORMATION ERROR ? 
28% sBRANCH IF NONE 
ee 14(R2) sHEADER CRC ERROR ? 
27% sBRACH IF SO 
CSERHRD 

24 

EM24 

OH44 

39% ;EXIT 

CSERHRD 

46 

EM46 

DH44 


SEQ 0060 





J5 
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014032 


014036 
014044 
014046 
014050 
014052 
014054 
014056 


014062 
014070 
014072 
014074 
014076 
014100 
014102 


014106 
014114 
014116 
014120 
014122 
014124 
014126 


014132 
014140 
014142 
014144 
014146 
014150 
014152 


014156 
014164 


014166 
014174 


014176 
014204 
014206 
014214 


014216 
014224 


014226 
014234 


014236 
014244 


014246 


000137 
032762 


001406 
104456 


052737 
000441 


052737 
000435 


052737 
000431 


052737 
000425 


32737 
000421 


052737 


014246 
017400 


014256 


014256 
000400 


000010 


000040 


000042 


002264 


002264 


002264 


002264 


002264 


002264 


002264 


002264 


288: 


29s: 


30$: 


31$: 


38%: 


39%: 


JMP 


39$ 


@WRYUNS !WOR!RWUL!RWU2!RWUS,40(R2) ;WRITE AND READ UNSAFE ? 


29% 
CSERHRD 
32 


EM32 
DH44 
40$ 


#0CU,42(R2) 
30$ 
a 


31% 
CSERHRD 
34 


@BITO,SVSTAT 
423 
@BIT1,SVSTAT 
42$ 


oBIT2,SVSTAT 
42% 


@BIT3S,SVSTAT 
42% 
@BIT4,SVSTAT 
42% 
#BITS,SVSTAT 
42% 
@BIT6,SVSTAT 
42% 


#BIT7,SVSTAT 


sEXIT 


sBRANCH IF NONE 


;EXIT 


;0C LOW ? 
;BRANCH IF NONE 


3;EXIT 


s INDEX UNSAFE ? 
sBRANCH IF NONE 


;EXIT 


sPROCESSOR HANDSHAKE FAILURE ?? 
;BRANCH IF NOT 


sMCPE=1,RHXX A-SYNC CONTROL BUS PARITY 
sRHXX DATA BUS PARITY, cee CONDITION 
:DATA LATE, WRITE CHECK 

sPROGRAM ERROR: PROHIBITED COMMANDS 
sWERE EXECUTED CWRITE/READ TRACK DES, 
sFORMAT TRACK). 


sORIVE CLOCK, TIMING, DATA ERROR 
sRETRY SHOULD BE ALLOWED. 


oA SSA. CONDITION ,DECODER, INTERFACE 
sPROBLE 


sPOSITIONING ERROR 
sMECHANICAL FAILURE : AIR, TEMP ETC. 


sHEADER INFORMATION ( HEADER FAILURE, 


SEQ 0061 


KS 
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206 


014254 


014320 


000415 


052737 
000411 


000400 002264 40%: 


100000 000042 41%: 


42%: 


42$ 
#BIT8,SVSTAT 
42$ 


#BSE ,42(R2) 
42$ 


CSERHRD 
a4 

EM44 
OH44 
40$ 


CSP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
R5 


sOR UNFORMAT TRACK ) 
sUNSAFE CREAD/WRITE, INDEX, TACH) 


sIF BAD SECTOR DETECTED, 
sBRANCH WITHOUT REPORTING ERROR, ELSE 


sEXIT 


33POP STACK INTO R4 
:3POP STACK INTO R3 
3:POP STACK INTO R2 
:;POP STACK INTO R1 


SEQ 0062 


LS 
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OOsnOU Suhr 


014322 
014326 
014330 
014336 
014342 
014344 
014352 
014356 
014360 
014364 
014366 
014372 


014374 


014510 


014512 


004437 


002302 


002274 
002300 


002272 
002276 


002302 
002300 


021122 


002566 


012766 


021122 


002552 


021122 


002302 


002300 


002304 
002310 
002306 
002264 


002552 


sSUBROUTINE TO ADJUST THE SECTOR ADDRESS BECAUSE IT IS AUTOMATICALLY 


s INCREMENTED AT THE END OF A 


>CALL 
; JSR 


ADJUST: TST 


1$: DEC’ 


2s: DEC 
3$: RTS 


PC ,ADJUST 
SEC.RD 

i$ 
NS1,SEC.ROD 
TRK RD 

2s 
NT1,TRK.RD 
CYL.RD 

3$ 

SEC.RD 

3$ 

TRK.RD 

PC 


TRANSFER 


sCALL ROUTINE 


sSECTOR 0? 

sBR IF NOT 

sMAKE IT LAST PHYSICAL SECTOR AND DECR TRACK 
sLAST TRACK? 

;BR IF NOT 

sMAKE IT LAST PHYSICAL TRACK AND DECR CYL 
sDECR CYL 

sEXIT 


;EXIT 
sADJUST TRACK 


sTHIS ROUTINE WILL CALL THE RPO7 DRIVER AND THEN WAIT ON THE FUNCTION 
:TO COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 


sCALL RPO7 DRIVER 


3DONE? 

3NO--LOOP 

i BRANCH IF NO ERROR 
CYLINDER 

3 TRACK 

sSECTOR 

3sCHECK THE ABORT CONDITION 
sPARAMETER BLOCK ADDRESS 
;sDETECT ERROR 


sHEADER ERROR? 
sIF NOT MATCH, NO 


sSET UP FOR A RECAL COMMAND 
sISSUE THE COMMAND 

sTHIS BUFFER 

sFILLER FOR THE DRIVER 


;CALL 
3 FILL “DPB” WITH COMMAND INFORMATION 
Hy JSR R4,CALL.A 
3 RETURN 
CALL.A: JSR R4,RPO7 
OPB.A 
BR CALL.A 
1$: TST DPB .A+16 
BEQ 1$ 
BPL 3% 
MOV OPB.A+12,CYL.DS 
MOVB OPB.A+11,TRK.DOS 
MOVB OPB.A+10,SEC.0S 
JSR RS,ERRABO 
OPB. 
JSR RS,ERRANY 
OPB.A 
CMP @BIT7,SVSTAT 
BNE 3$ 
MOV DPB.A+2,-C(SP) 
MOVB MRECAL ,OPB.A+2 
JSR R4,RPO7 
OPB.A 
NOP 
MOV (SP)+,0PB.A+¢2 
3%: RTS R4 


sRETURN 


sTHIS ROUTINE IS THE SAME AS “CALL.A” EXCEPT FOR THE DPB USED AND IF 
sTHE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
A ie READ IS CHECKED FOR VALIDITY. 


3 FILL DPB 

3 JSR R4,CALL.B 
; RETURN 

CALL.B: JSR R4,RPO7 


sCALL ORIVER 


SEQ 0063 


M5 
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014516 


014674 
014700 
014702 
014704 
014710 
014712 
014714 
014722 
014730 
014736 
014742 
014744 
014750 
014752 
014760 
014762 


001013 
013746 


012766 


021122 


002572 
002572 
002606 
015470 


002231 
015410 


021122 


002626 


002304 
002310 
002306 


002264 


002572 


000173 


002304 
002310 
002306 


002264 


sTHIS ROUTINE IS THE SAME AS “CALL.B” EXCEPT FOR THE DPB USED. 


OPB.B 
BR CALL .B 
1$: TST DPB .B+16 
BEQ 1$ 
BPL 3$ 
MOV OPB.B+12,CYL.0S 
MOVB DPB .B+11,TRK.DOS 
MOVB OPB.B+10,SEC.0S 
JSR RS,ERRABO 
DPB .B 
JSR RS,ERRANY 
DPB .B 
CMP OBIT7,SVSTAT 
BNE es 
MOV OPB.B+2, -C(SP) 
MOVB #RECAL .OPB.B+2 
JSR R4,R RPO? 
OPB.B 
NOP 
MOV (SP)+,D0PB.B+2 
2s: BR 5$ 
3%: CMPB DPB .B+2, #RDHD 
BNE 4$ 
TST OPB .6+16 
BMI 4$ 
JSR R4, VERIFY 
OPB.B+10 
R S$ 
4$: 
TSTB STALLF 
BEQ 5$ 
JSR R4,STALL 
. WORD STALL1 
S$: RTS R4 
3;CALL 
3 FILL OPB 
3 JSR R4,CALL.C 
; RETURN 
CALL.C: JSR R4,RPO7 
OPB.C 
BR CALL .C 
1%: TST OPB.C+16 
BEQ 1% 
BPL 3$ 
MOV OPB.C+12,CYL.0S 
MOVB OPB.C+11,TRK.OS 
MOVB OPB.C+10,SEC.D0S 
JSR RS,ERRABO 
OPB.C 
JSR RS,ERRANY 
OPB.C 
CMP oBIT7,SVSTAT 
BNE 2s 
MOV DPB.C+2,-(SP) 


sDONE? 

3NO--BRANCH 

sBRANCH IF NO ERROR 
sCYLINDER 

3; TRACK 

:SECTOR 

;CHECK THE ABORT CONDITION 


sHEADER ERRORS? 
sTAKE BRANCH IF NOT MATCH 


;SET UP A RECAL COMMAND 

s ISSUE THE COMMAND 

sTHIS BUFFER 

sFILLER FOR THE ORIVER 
sRESTORE THE COMMAND 

3;EXIT 


sDOING IMPLIED SEEKS? 
sNO- -BRANCH 

;ERROR DETECTED ? 
sBRANCH IF SO 

sGO CHECK THE DATA 


sERROR DURING VERIFY 


sSTALL ? 

3NO--BRANCH 

;YES--CALL STALL ROUTINE 
sSTALL TIME POINTER 
;RETURN 


sCALL ORIVER 


3DONE? 

sNO- -LOOP 

3YES--BRANCH IF NO ERROR 
SCYLINDER 

3; TRACK 

sSECTOR 


sCHECK THE ABORT CONDITION 


sHEADER ERRORS? 
3IF NO MATCH, NO! 


SEQ 0064 


NS 
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112737 
004437 


000107 
021122 


002612 


002612 


000173 


2s: 
3$: 


4$: 


5$: 


@RECAL ,DPB.C+2 
R4,RPO7 


(SP)+,DPB.C+2 
S$ 


oe 
DPB.C+16 
as 


R4,VERIFY 
0 


S$ 
STALLF 
S$ 
R4,STALL 
STALL1 
R4 


sSET UP A RECAL COMMAND 
s ISSUE THE COMMAND 
sFROM THIS BUFFER 
sFILLER FOR THE DRIVER 


sEXIT 


sDOING IMPLIED SEEK? 
3NO--EXIT 

sANY ERROR ? 

;EXIT 

3; YES--CHECK THE DATA 


sERROR DURING VERIFY 
:STALL ? 

3NO- -BRANCH 

;YES--CALL STALL ROUTINE 
sSTALL TIME POINTER 


SEQ 0065 
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OD a7 Nistor 


i0 


002350 
021122 


002646 


015214 
012766 


c02231 
015410 


021122 


002646 


015214 


002644 


sTHIS ROUTINE IS THE SAME AS “CALL.A” EXCEPT FOR THE DPB USED AND 
s0N AN ERROR LOCATION “ERR.CT” IS EXAMINED. IF ERR.CT IS EQUAL TO 
sSERFLG EXIT IS TO THE NEXT TEST, 


3CALL 
3 FILL DPB 
3 JSR R4,DRVCAL 
; RE TURN 
ORVCAL: CLR WCEFLG ;CLEAR WRITE CHECK ERROR FLAG 
JSR R4,RPO7 ;CALL ORIVER 
DTADPB 
BR ORVCAL 
3%; TST OTADPB+16 3s DONE 
BEG 3% 3NO- -LOOP 
BMI 1$ ;8R IF ERRORS 
- BR 4$ 3NO ERRORS 
MOV DTADPB+12,CYL.DS sCYLINDER 
MOVB DOTADPB +11, TRK.0S 3 TRACK 
MOVB DTADPB+10,SEC.0S ;SECTOR 
JSR RS, ERRABO ;CHECK THE ABORT CONDITION 
OTADPB sDATA BLOCK ADDRESS 
JSR RS,ERRANY 
on OTADPB 
TSTB STALLF sSTALL ? 
BEQ S$ 3NO- -BRANCH 
JSR R4,STALL 3YES--CALL STALL ROUTINE 
. WORD STALL2 sSTALL TIME POINTER 
S$: RTS Ra 


sSUBR TO EXECUTE A COMMAND STORED IN DTADPB. 
sSIMILAR TO SUBR CALL.A EXCEPT THAT HARD AND SOFT ERRORS ARE NOT CHECKED 
sI.€. NO CALL TO ERRANY. 


EXECMD: JSR R4,RPO7 sEXEC CMD 
OTADPB ;0PB8 PTR 
BR EXECMD sWAIT FOR Q@ NOT FULL 
2s; TST DTADPB +16 s DONE ? 
BEG 2s sWAIT FOR DONE 
BPL sSKIP ON ERROR FREE DONE 


3$ 
JSR RS, ERRABO sERROR: CHECK ABORT CONDITION 


sEXIT TEST IF ‘DPB’ +16 SET WITH ERRORS: 


sNED _—_— +PAR+OFL+UNS. 


; 
3%: MOV atari sFETCH AD OF SAVED REG TBL 


SEG 9066 


Cé, 


~ 
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GLOBAL. 


OBA VSiwafr 


015214 


010146 
010246 
012501 


001000 


002262 


002276 
002302 
002300 


sTHIS ROUTINE IS USED TO DETERMINE THE ABORT CONDITIONS OF 
3 THE I70 ROUTINES 
sCALLING SEQ 


ERRABO: 


1$: 


2s: 


3%: 


4%: 


S$: 
6%: 


JSR RS, ERRABO 
OPB 

NORMAL RET 

MOV R1,-(SP) 

MOV R2, -(SP) 

MOV CRS)+,R1 

MOV 14(R1),R2 
MOV 36(R2),CYL.RD 
MOvVB 6(R2),SEC.RO 
MOVB 7(R2), TRK.RD 
MOV 16(R1),R2 
BIT oBIT1,R2 

BEQ $ 

TRAP CSERDF 

-WORD 25 

-WORD EM25 

-WORD  ODH25 

BR 5$ 

BIT *BIT2,R2 
BEQ 

TRAP CsEROF 

-WORD 26 

-WORD EM26 

«WORD DH44 

BR S$ 

BIT oBIT9,R2 

BEQ 

TRAP CSEROF 

-WORD 27 

-WORD €EM27 

-WORD O44 

BR S$ 

BIT @BIT10!B81T11,R2 
BEQ & 

TRAP CSEROF 

-WORD 30 

-WORD EM30 

«WORD ODH25 

BR ey ] 

BIT @BIT12!B1IT14,R2 
BEG 

TRAP CSEROF 

«WORD 31 

«WORD =EM31 

-WORD OH25 

BR 5% 

MOV BYPASS ,RS 
MOV (SP)+,R2 
MOV (SP)+,R1 

RTS RS 


DATA BLOCK PAR ADDRESS 


;SAVE R1 

sSAVE R2 

sLOAD THE DPB ADDRESS 

sADDRESS OF SAVED REGISTER TABLE 
3GET CURRENT CYLINDER 

sGET CURRENT SECTOR 

sGET CURRENT TRACK 

3R2 TEMP STORAGE 

sORIVE BECOME NON-EXIST ? 
;BRANCH IF NOT 


sEXIT 
sPORT REQUEST TIMEOUT ? 
;BRANCH IF NOT 


;TIME OUT ON THIS DRIVE 
;BANCH IF NOT 


sExIT 
;MASSBUS PARITY ERROR ? 
sBRANCH IF NOT 


sORIVE UNSAFE OR OFFLINE 
sBRANCH IF NOT COTHER ERROR CATLOG) 


sTHE ABORT ADDRESS 
sEXIT IF NO ABORT CONDITION 


sEXIT 


SEQ 9067 


DF 
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43 
aes 
45 


015406 
015406 


104444 


0022352 
011712 
011774 
177700 
000001 
000144 


000000 


000002 


;ABORT RETURN ADDRESS FROM ‘'ERRABO' 
ABOPAS: 


sTHIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
sAMOUNT OF TIME IF STALRD = 0 OR A RANDOM AMOUNT OF TIME IF STALRD = 1. 


TRAP 


CsOCLN 


SUBR, VIA ‘BYPASS’, 


sSTALL1 CONTAINS SPECIFIED TIME FOR TESTS 1-6, AND STALL2 
sCONTAINS THE TIME FOR TESTS 13-18. 


;CALL 
3 
3 


STALL: 


1%: 
2s: 


3$: 


4$: 


JSR 


R4,STALL 


TIME POINTER 


QC R4)+, -( SP) 
—— D 


BC, RAND 


$RP1,(SP) 
@tC77,(SP) 


2 
(SP)+,CSP)-+ 
R4 


sWHERE TO FIND THE STALL TIME 


sPICKUP STALL TIME 

sUSE A RANDOM TIME ? 

NO - -BRANCH 

3 YES--FORM RANDOM NUMBER 

sAND USE IT FOR THE STALL TIME 
sBUT NEVER > 64 MILLISECONDS 
;CLEAR TEMP. LOCATION 

sMORE STALL REQUIRED? 
3NO--BRANCH 

;STALL FOR eg 3 1 MILLISECOND 
sNOP TO KILL TIME 


3 COUNT 
;LOOP IF MORE COUNTS NEEDED 


;CLEAN OFF THE STACK 
3EXIT 


ON DEV FATAL ERROR 


SEQ 0068 


FF, 
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OOBnsOVibwhr 


010146 


042762 
000002 


002276 
002300 
002302 


002552 


SEG 0069 


sROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 


;CALL 
3 


VERIFY: 


1$: 


2s: 


3$: 
4$: 


JSR R4,VERIFY 

ADR POINTER 

ERR RETURN 

RETURN 

MOV R1, -(SP) 

MOV €R4)+,R1 

BIC #150000 , DBUFF 
CMP DBUFF ,2(R1) 
BNE 1$ 

CMP DBUFF +2,(R1) 
BEQ 3$ 

MOV OBUFF ,CYL.RD 
MOVB OBUFF +3, TRK.RD 
MOVB DBUFF +2,SEC.RD 
MOVB (R1)+,SEC.0S 
MOVB (R1)+,TRK.OS 
MOV (R1),CYL.0S 
TST -(R4) 

TRAP CSERHRD 

-WORD 42 

-WORD EM42 

-WORD DH45 

MOV @RECAL ,DPB.A+2 
JSR R4,CALL.A 

ADD @2,R4 

RTS R4 


sADDRESS OF DPB+10 (SECTOR NUMBER) 


sSAVE R1 

sGET ADDRESS OF DPB+10 

sSTRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
sCYLINDER NUMBER OK? 


3NO- -BRANCH 
sYES--HOW ABOUT TRACK/SECTOR? 
sBRANCH IF GOOD 


sSAVE THE EXPECTED AND THE 
sRECIEVED CYLINDER, TRACK, 
sAND SECTOR 


sMAKE IT TEST PC+4 


sLOAD RECALIBRATE ORDER CODE 
:GO EXECUTE THE COMMAND 

s INCREMENT RETURN ADDRESS 
sRESTORE R1 

sEXIT 


F 6) 
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1 
> ;THIS ROUTINE WILL PERFORM A “MASSBUS” INIT. FOLLOWED BY 
z ;A "RECALIBRATE” ON THE DRIVE UNDER TEST. 
4 sNOTE THIS ROUTINE DESTROYS R1 AND R4 
;CALL 
6 ; JSR R4, SRCHOO ;00 A MASSBUS INIT. AND RECAL 
7 ; RETURN1 ;RETURN HERE IF NO ERROR 
8 ; RETURN2 ;RETURN HERE ON ERROR 
10 015612 005001 SRCHOO: CLR R1 sINCASE OF ERROR (TYPTIM) 
11 015614 012777 000040 165056 MOV @CLR,@RPCS2 ;MASSBUS INIT. 
12 015622 005037 002640 CLR DTADPB+10 sTRACK*0; SECTOR=0 
13 015626 005037 002642 CLR DTADPB+ 12 sCYLINDER =0 
14 015632 012737 000107 002632 MOV @RECAL ,DTADPB+2 ;COMMAND = RECALIBRATE 
15 015640 004437 021122 JSR R4, RPO? ;CALL THE DRIVER 
16 015644 002630 DTADPB ;0PB POINTER 
17 015646 000433 BR 4s ;BRANCH IF QUEUE FULL,NO SPACE 
18 015650 005737 002646 1$: TST DTADPB +16 ;WAIT ON DONE 
19 015654 001775 BEQ 1$ 
20 015656 100021 BPL 33 ;TAKE NORMAL EXIT IF NO ERROR 
21 015660 013737 002642 002304 MOV DTADPB+12,CYL.DS ;CYLINDER 
015666 113737 002641 002310 MOVB DTADPB+11,TRK.DS ; TRACK 
015674 113737 002640 002306 MOVB OTADPB+10,SEC.DS ;SECTOR 
22 015702 004537 015214 JSR RS, ERRABO ;CHECK ANY ABORT CONDITION 
23 015706 002630 DTADPB 
24 015710 004537 012766 JSR RS, ERRANY 
25 015714 002630 DTADPB 
26 015716 005724 2s: TST (R4)+ ;ADJUST FOR ERROR EXIT 
27 015720 000406 BR 4s ;GO TO THE EXIT 
28 015722 012777 000000 164746 3%: MOV @0,@RPDA ;TRACK AND SECTOR =0 
29 015730 012777 000000 164766 MOV 00, BRPDC ;CYLINDER = 0 
30 015736 000204 43: RTS R4 ;RETURN 
32 ;THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS 
35 015740 DORTI: ;RETURN FROM INTERRUPT 
36 015740 L10011: 
Ss 015740 000002 RTI 
38 s THIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE TIMING ROUTINE 
3 
40 ; JSR PC,STRTMR 
41 ; RETURN 
43 015742 004737 010750 STRTMR: JSR PC, SAVREG sSAVE RO-RS 
44 015746 012700 002312 MOV oTIM.UP,RO sSTART AT TIM.UP (MINIMUM) 
45 015752 012701 002346 MOV OTIM.PT,R1 sSTOP AT TIM.PT 
46 015756 005020 18: CLR (RO)> ;CLEAR 
47 015760 020001 CMP RO,R1 3 DONE ? 
48 015762 103775 BLO 18 ;NO- -BRANCH 
49 015764 012710 042762 MOV OOBUFF , CRO) ;SETUP POINTER 
SO 015770 012737 077777 002312 MOV @tCBIT15,TIM.UP ;SET MINIMUM TIME TO MAXIMUM 
51 015776 012737 077777 002330 MOV @*CBIT15,TIM.ON ;POSITIVE NUMBER 
52 016004 004737 011002 JSR PC, RESREG ;RESTORE RO-RS 
33 016010 000207 RTS PC ;RETURN 


55 sTHIS ROUTINE IS USED FOR MEASURE THE AVERAGE SEEK TIME 


G6 
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016210 


012702 


002312 


002330 


174172 
011420 
000002 
000002 
177776 
002206 


011176 


174072 


174064 
174060 


000002 
174044 


174034 
174026 


000006 


177776 


sIN THE TEST 1 


sTHE TIME IS MEASURED AS: 


2s: 


3%: 


4$: 


S$: 


6%: 


629X629 


WHERE THE T1 IS THE SEEK TIME FROM CYLO TO CYLi 
: THE T2 IS THE SEEK TIME FROM CYLO TO CYL2 ,ETC. 
sTHE COUNT2: ROUTINE WILL CALCULATE THE FOLLOWING SUMMATION: 


RTS 


_ 6 T1X629 + T2X628 + T3X627+ eesccee >xe2 
629 
@TIM.UP,R2 sCOUNT UP TABLE 
RS sCOUNT UP CALCULATING ? 
1$ sBRANCH IF SO 
@TIM.ON,R2 sLOAD THE COUNT DOWN TABLE 
Ri, -(SP) sCOEFFICIENT 629,628,627,.... ETC. 
@PKC, -C SP) sMEASURED TIME INTERVAL 
PC, $MULT sTIME INTERVAL X COEFFICIENT 
2(SP), -2(SP) sSWAP THE LSB , MSB OF THE PRODUCTION 
(SP),2CSP) ; 
-2(SP),(SP) ; FOR THE CALLING SEQ OF $DIV ROUTINE 
LC, -(SP) sDIVIDED BY 629 (TOTOL @ OF SEEKS) 
(SP) s DIVIDEC BY 629/2 
(SP) sROUND UP THE FRACTION 
PC, $0IV sTIME X COEFFICIENT/TOTAL @ OF SEEKS 
(SP )+ sREMAINDER OVER 0.5 ? 
2s sBRANCH IF NOT 
(SP) sROUND UP 
(SP)+,10(R2) 3LSB OF THE TOTAL SUM 
12(R2) sHSB OF THE TOTAL SUM 
14(R2) sTOTAL SEEK COUNT 
OPKC ,A@TIM.PT sSAVE THE TIME INTERVAL 
#2, TIM.PT sADJUST THE POINTER 
aPKC ,CR2) sMINIMUM TIME 
sBRANCH IF NOT 
aPKC ,CR2) sLOAD THE NEW MINIMUM 
aPKC ,4(R3) sLOWER THEN THE LIMIT ? 
as sBRANCH IF NOT 
2(R2) sUPDATE THE COUNTER IS SO 
@PKC ,4(R2) sGREATER THAN THE MAXIMUM VALUE ? 
S$ sBRANCH IF NOT 
@PKC ,4(R2) sLOAD THE NEW MAXIMUM VALUE 
@PKC ,6(R3) sOVER THE LIMIT 
6% sBRANCH IF NOT 
6(R2) sUPDATE THE COUNT, IF SO 
PC sEXIT 


sTHIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
sMAINTAIN THE MINIMUM AND MAXIMUM TIMES. 


sNOTE: THIS ROUTINE DESTROYS R2 


;CALL 


MOV 
MOV 


@TP,R3 
FLAG,RS 


sPARAMETER POINTER 
sFLAG*0=COUNT UP 


SEQ 0071 





Hé 
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016212 
016216 
016220 
016222 
016226 


016316 


016324 
016326 


016334 
016336 
016344 
016352 


016376 


012702 
005705 


0052 
023727 


001412 
022737 


101406 
017777 
062737 
000207 


012402 
005737 
001447 


012246 
012746 
010600 
104417 
062706 


002312 
002330 
173774 


173766 
173760 


173744 


173736 
173730 


173714 


002114 


047706 


173664 
000002 


002242 


177776 
000004 


177776 
000006 


000022 


002346 


164002 
002346 


COUNT: 


4$: 


S$: 


6$: 


JSR 


RE TURN 


PC,COUNT 
#TIM.UP,R2 
R5 


1$ 
@TIM.ON,R2 
@PKC ,CR2)+ 
2s 


aPKC, -2(R2) 
one 


(R2) 

(R2)+ 
OPKC,CR2)+ 
4$ 


renee 


(R2) 

(R2)+ 
OPKC,CR2)+ 
(R2)+ 


(R2) 
L$TEST, #18. 


6$ 
@D8UF F +<440629. >. 


6% 

@PKC ,ATIM.PT 
@2,TIM.PT 

PC 


JSR R4,SPTYP 
TABLE ADDRESS 
WORD MESSAGE 
-WORD MIN VALUE 
-WORD MAX VALUE 
MOV (R4)+,R2 
TST TYTIME 
BEQ 3% 

MOV (R2)+,-CSP) 
MOV SP,RO 
TRAP CSPNTF 
ADD 04 ,SP 


sFLAG=-1=COUNT DOWN 


sPICKUP THE “UP” 
sUSE IT? 

3 YES- -BRANCH 
sNO--PICKUP “DOWN” POINTER 
4 ne PREVIOUS LOW? 


POINTER 


}YES- -SAVE IT 

;LESS THAN THE LOW LIMIT? 
3NO- -BRANCH 

;YES--COUNT IT 

sADVANCE THE POINTER 
;GREATER THAN PREVIOUS HIGH? 
3NO- -BRANCH 

3YES--SAVE IT 

sGREATER THAN THE HIGH LIMIT? 
3NO- -BRANCH 

3 YES--COUNT IT 

sADVANCE THE POINTER 

sADD THIS COUNT TO THE TOTAL 


sCOUNT THIS READING 

sD0 NOT SAVE COUNTS IN MEMO IN 8 TO ALLOW 
sA_WRITE-CHECK OPERATION AFTER THE TIMED WRITE 
sOTHERWISE WRITE DATA WILL BE DESTOYED AND A 
sWRITE CHECK ERROR WCE WILL RESULT IN RPCS2! 


TIM.PT ;SAVE THIS COUNT? 
sLAST CYLINDER X 4 

3NO--BRANCH 

VYES--WELL SAVE IT THEN 

sADVANCE THE POINTER 

;RETURN 


— ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS 


sTHE TABLE ADDRESS 

sALLOW TIME TO BE TYPED ? 
3B8R IF NO 

;PRINT MESSAGE 


SEQ 0072 


=e 


16 
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166 
167 
168 


173 


174 


01€402 
016404 
016406 
016412 
016416 


012746 


177776 
017270 
000002 


000006 


177776 
017313 
000002 


1$: 


2s: 


3$: 


TST (R2)+ 

BEQ 1$ 

MOV -2(R2), -CSP) 

MOV #MSGMIN, -( SP) 

MOV #2,-CSP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD #6, SP 

TST (R2)-+ 

BEQ 2s 

MOV -2(R2),-CSP) 

MOV @MSGMAX, -C SP) 
SP ,RO 

TRAP CSPNTF 

ADD #6, SP 

MOV @CRLF , -(SP) 

MOV #1, -(SP) 

MOV SP RO 

TRAP CSPNTF 

ADD 04,SP 

RTS R4 


SEQ 0073 


sLOAD MIN VALUE 
;SKIP IF MIN VALUE IS O 


;THE MAXIMUM VALUE 
;BRANCH IF NO LIMIT 


3;CR-LF 


a Cte 


J6 
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SEQ 0074 
GLOBAL. SUBROUTINES SECTION 
1 
e 33THIS ROUTINE IS USED TO TYPE THE MINIMUM, 
3 ;MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 
4 sIT WILL ALSO CHECK THE TIMES TO ENSURE 
5 ;THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 
; ote THIS ROUTINE DESTROYS R2-RS 
;CALL 
8 ; JSR R4,TYPTIM :GO REPORT THE TIMES 
9 ; TABLE sPOINT TO THE PROPER TABLE 
10 ; RETURN 
il H 
12 ; TABLE: MSGADR1 sADDRESS OF ASCIZ MESSAGE NUMBER 1 
13 3 MSGADR2 sADDRESS OF ASCIZ MESSAGE NUMBER 2 
14 3 MIN. ALLOWED sMINIMUM TIME ALLOWED 
15 3 MAX. ALLOWED sMAXIMUM TIME ALLOWED 
16 
17 016504 012402 TYPTIM: MOV (R4)+,R2 sPICKUP THE TABLE POINTER 
18 016506 010446 MOV R4,-(SP) :3:PUSH R4 ON STACK 
19 016510 012237 017264 MOV CR2)+,128 sADDRESS OF 1ST MESSAGE 
20 016514 012205 MOV CR2)+,R5 sADDRESS OF 2ND MESSAGE 
21 016516 012203 MOV CR2)+¢,R3 sPICKUP THE LO LIMIT 
22 016520 011202 MOV (R2),R2] s;AND HI LIMIT VALUES. 
23 016522 012704 002312 MOV @TIM.UP,R4 ;GET ADDRESS OF UP TIMES STORAGE 
. 016526 004737 017634 JSR PC, CHKAVG i BELOW/ABOVE SEEK TIMES SHOULD 
. 
26 016532 012737 000001 002242 MOV #1,TYTIME sALLOW TIMES AND LIMITS TO BE TYPED 
27 016540 105737 002227 TSTB TIMTYP sALWAYS TYPE THE TIMES ? 
28 016544 001020 BNE 3$ ;8R IF YES 
29 016546 005764 000002 TST 2(R4) sANY SEEKS BELOW THE LOW LIMIT 
30 016552 001403 BEQ 1$ ;BR IF NO 
31 016554 005737 017714 TST $$FLG sTYPE @ OF SEEKS BELOW LIMIT? 
32 016560 001012 BNE 3$ ;BR IF YES 
33 016562 005764 000006 1%: TST 6(R4) sANY SEEKS ABOVE THE HIGH LIMIT 
34 016566 001403 BEQ es 3;6R IF 
35 016570 005737 017714 TST $$FLG sTYPE @ OF SEEKS ABOVE LIMIT? 
36 016574 001004 BNE 3$ ;BR IF YES 
37 016576 005037 002242 2s: CLR TYTIME ;NO TIMES OR LIMITS TO BE TYPED 
=. 016602 000137 017260 JMP 11$ 3NO--EXIT 
40 016606 3%: 
016606 013746 017264 MOV 12$,-(SP) 
016612 012746 000001 MOV #1,-CSP) 
016616 010600 MOV SP,RO 
016620 104417 TRAP CSPNTF 
016622 062706 000004 ADD 04,SP 
41 016626 005764 000014 TST 14(R4) :0ID ANY SEEKS OCCUR ? 
42 016632 001012 BNE 4s ;BR IF YES 
43 016634 012746 017615 MOV @MSGNON, -C SP) 
016640 012746 000001 MOV #1,-CSP) 
016644 010600 MOV SP ,RO 
016646 104417 TRAP CSPNTF 
016650 062706 000004 ADD @4,SP 
44 016654 000137 017260 JMP 11$ 
45 016660 4s: 
016660 012446 MOV (R4)+,-CSP) 
016662 012746 017270 MOV @MSGMIN, -( SP) 
016666 012746 000002 MOV #2,-CSP) 
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51 


Pan 


57 


KALARK2AS SS 


016672 
016674 
016676 
016702 
016704 
016706 
016712 
016714 
016716 
016722 
016726 
016732 
016734 
016736 
016742 
016742 
016744 


022737 


000006 
017714 


177776 
017362 
000003 


000010 


017313 
000002 


000006 
017714 


177776 
017434 
000003 


011176 


000006 

000007 002114 
000016 002114 
000022 002114 


S$: 


6$: 


7$: 


S$ 

R3,-(SP) 
-2(R4),-CSP) 
OMSGBEL , -( SP) 
#3, -(SP) 

SP ,RO 

CSPNTF 

#10,SP 


(R4)+, -CSP) 
@MSGMAX, -( SP) 


@MSGABV , -( SP) 
#3, -(SP) 
SP,RO 

CSPNTF 

#10,SP 


@MSGAVG, -( SP) 
#1,-C(SP) 
SP 


@AVGVAL , -C SP) 
#2, -(SP) 


SP,RO 
CSPNTF 
#6,SP 
@7,L$TEST 
8$ 
#14.,,L$TEST 
9% 
#18.,L$TEST 


sANY SEEKS BELOW THE LOW LIMIT 
3NO- -BRANCH 
sTYPE # OF SEEKS BELOW LIMIT? 
sNO, SKIP IT 


sANY SEEKS ABOVE THE HIGH LIMIT 
3NO- -BRANCH 

;TYPE @ OF SEEKS ABOVE LIMIT? 
;NO, SKIP IT 


sFORM THE AVERAGE 


3IS THE REMAINDER OVER HALF? 
3NO--BRANCH 

3YES--ROUND UP 

sPOP AVERAGE VALUE FOR PRINT 


sTEST 7 ? 


? 
sBRANCH IF SO 
sTEST 18 ? 


SEQ 0075 


Lé 


CZRJLBO RPO7 FCTNL TEST MACRO VO4.00 1-DEC-83 12:59:38 PAGE 33-2 
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72 
73 


TS 
75 


76 
77 


017142 
017144 


017615 


001426 
016446 
012746 
012746 


177776 
017506 
000002 


000006 


177776 
017533 
000002 


000006 


177776 
017563 
000002 


000006 
017264 


016606 


017714 
000011 


000010 
000012 


002114 


BEQ 9$ ; 

MOV -2(R4), -CSP) 
MOV @MSGNUM, - (SP) 
MOV #2, -CSP) 

MOV P,RO 


BR 10$ 
8$: 
MOV -2(R4),-CSP) 
MOV @MSGSEA, -( SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6, SP 
BR 10$ 
9$: 
MOV -2(R4),-CSP) 
MOV OMSGOPE , -( SP) 
MOV #2,-C(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6, SP 
10$: MOV RS,12$ 
BEQ 11$ 
CLR RS 
3$ 
118: 
MOV (CSP )+,R4 
RTS R4 
128: -WORD O 


AVERAG: .WORD 0 


sBRANCH IF SO 


3; SKIP 


3SKIP 


sNEXT MESSAGE POINTER 
3IF NONE EXIT 
3NO MORE THAN 2 


33sPOP STACK INTO R4 
sEXIT 


sADRRESS OF MSG 1 
sAVERAGE VALUE 


MSGMIN: .ASCIZ /SNSAMIN=8D5SA0. US/ 
MSGMAX: .ASCIZ /sSNSAMAX=sDS8A0. US/ 


MSGAVG: .ASCIZ /sNSAAVG=/ 
AVGVAL: .ASCIZ /s#D5#A0. US/ 


MSGBEL: .ASCIZ /#A SD48A. BELOW THE MINIMUM OF sSDSSAO. US/ 
MSGABV: .ASCIZ /#A SD48A. ABOVE THE MAXIMUM OF SDSSA0. US/ 
MSGNUM; .ASCIZ /#DS8A. SEEKS TIMEDSN/ 

MSGSEA: .ASCIZ /#0S58A. SEARCHES TIMEDSN/ 

MSGOPE:: .ASCIZ /#D05s8A. OPERATIONS TIMEDSN/ 


MSGNON: .ASCIZ /s#A NOT TIMEDSN/ 


-EVEN 


sSUBR TO CHECK IF COMPLETE SPECS ON SEEKS SHOULD BE TYPED 
sIF THE AVERAGE SEEK TIME IS ABOVE SPEC, THEN TYPE ABOVE AND BELOW VALUES 


sELSE, DO NOT TYPE THEM 


s$$FLG IS SET TO INDICATE TYPE THEM 


CHKAVG: CLR $$FLG 
CMPB #9, ,.LSTEST 
BNE es 


MOV 10(R4),-C SP) 
MOV 12(R4),-CSP) 


sINIT FLAG 

sTEST 9, AVERAGE SEEK TIMING ? 

sEXIT IF NOT 

sPUSH LOW DIVIDEND OF TOTAL TIME OF ALL SEEKS 
sPUSH HIGH DIVIDEND 


SEQ 0076 


M6 
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017712 
017714 


000014 
011176 


000014 


017714 


1$: CMP 


2s: INC 
3$: RTS 


$$FLG: .WORD 


14(R4),-CSP) 
PC, $DIV 


(SP) 
co Perens 


;PUSH DIVISOR = NUMBER OF SEEKS TIMED 
;CALCULATE AVERAGE 

;REM/2 

sIS REM OVER HALF? 

sNO, SKIP NEXT 

sYES, ROUND UP AVG TIME 

sOUT OF SPEC? 

sEXIT IF NOT 

:;SET FLAG TO REPORT ALL DATA 


s;TYPE ALL SPECS FLAG 


SEQ 0077 


N6 
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OBsnnyvbwufr 


017716 
017722 
017726 


017732 
017736 
017740 
017744 
017746 
017750 
017754 


017756 


113701 
042701 


110137 


011712 
011774 
177700 


002222 
002220 
002220 


002220 
002222 


002640 
011775 
177740 


002641 


sTHIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR 


sADDRESSES AND SAVES THEN IN THE DPB (OTADPB+10, 11 &€ DTADPB+12). 


sNOTE: THIS ROUTINE DESTROYS R1-R3 


;CALL 
3 
Hy 


RANADR : 


1$: 


2s: 


3$: 


4$: 


5%: 


6%: 


JSR 
RETURN 


R4,RANADR 


PC ,RAND 
$RP1,R1 
#177700,R1 


s;GENERATE A RANDOM NUMBER 
sFORM SECTOR IN R1 
sREDUCE SIZE TO <= 63 


SEARCH FOR FS<=R1<=LS 


R1,LS 
2s 
FS,R1 


R1,OTAOPB+10 
$RP1+1,R1 
#177740,R1 


sWHILE R1>LS DO R1i=FS+(R1-FS)/2 


sWHILE R1<FS DO R1=LS-(LS-R1)/2 


sSET RANDOM SECTOR IN DPB 
sFORM TRACK IN R1 
sREDUCE SIZE TO <= 31 


SEARCH FOR FT<=Ri<=LT 


R1,LT 
5$ 
FT,R1 


R1 
FT,R1 
a3 


R1,FT 
6$ 

LT,R2 
R2,R3 
R1,Re 


Re 


R2,R3 
R3,R1 
5s 


R1,OTADPB+11 


sWHILE R1>LT DO R1=FT+C(R1-FT)/2 


sWHILE R1<FT OO Ri=LT-CLT-R1)/2 


sSET RANDOM TRACK IN DPB 


SEQ 0078 


} 
} 
! 
' 


b / 
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020102 
020106 
020112 


020172 
020176 


004737 
013701 
042701 


010137 
000204 


011712 
011774 
176000 


002206 


002204 


002204 


002204 
002206 


002642 


7%; 


9$: 


JSR 


PC ,RAND s;GENERATE RANDOM NUMBERS 
$RP1,R1 sPICK ONE FOR C¥LINDER 

#176000 ,R1 sREDUCE SIZE TO <=1777 

SEARCH FOR FC<=R1<sLC 

ft re sWHILE R1>LC DO R1=FC+(R1-FC)72 
8 


° 
FC,Ri 


R1,FC sWHILE R1<FC DO R1=LC-(LC-R1)72 


R1,O0TADPB+12 sSAVE CYLINDER ADDRESS 
R4 ;RE TURN 


SEG 9079 


aT 
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~ Sinfur 


ue 


020270 


020327 


83388888 83883388 


88888888 


-SBTTL RPO7 DRIVER 
sSTORAGE FOR RPDS, RPER1, RPER2, AND RPERS 


RPSTUO: .WORD 0,0,0,0 30S, ER1, ER2 € ER3 STORAGE FOR DRIVE 0 
RPSTU1L: .WORD 0,0,0,0 10S, ER1, ER2 € ER3 STORAGE FOR DRIVE 1 
RPSTU2: .WORD 0,0,0,0 30S, ER1, ER2 € ER3 STORAGE FOR DRIVE 2 
RPSTU3: .WORD 0,0,0,0 s0S, ER1, ER2 € ER3 STORAGE FOR DRIVE 3 
RPSTU4: .WORD 0,0,0,0 30S, ER1, ER2 € ER3 STORAGE FOR DRIVE 4 
RPSTUS: D 0,0,0,0 sDS, ER1, ER2 € ER3 STORAGE FOR ORIVE 5 
RPSTU6: .WORD 0,0,0,0 30S, ER1, ER2 € ER3 STORAGE FOR DRIVE 6 
RPSTU7?; .WORD 0,0,0,0 30S, ERi, ER2 € ER3 STORAGE FOR ORIVE 7 


sTABLE OF DRIVE ACTIVE INDICATORS (DRVACT*8 BYTES) 
sORVACT=0 IF DRIVE IS IDOLE 
sDRVACT>O IF ORIVE IS ACTIVE WITH A COMMAND 
sDRVACT<O IF ORIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


ORVACT: .BYTE 0 sORIVE O 
-BYTE O sORIVE 1 
-BYTE O sORIVE 2 
-BYTE 0O sORIVE 3 
-BYTE O sORIVE 4 
BYTE 0O sORIVE 5 
-BYTE O sORIVE 6 
-BYTE O sORIVE 7 


s TABLE OF DRIVE STATUS INDICATORS (ORVSTA=8 BYTES) 
sORVSTA=O IF ORIVE IS OFFLINE OR NONEXSITENT 
sORVSTA>O IF DRIVE IS ONLINE 
sORVSTA<O IF DRIVE IS UNSAFE 


ORVSTA: .BYTE 0 sDORIVE 0 
.BYTE 0 sORIVE 1 
BYTE fe) sORIVE 2 
.BYTE (¢) sORIVE 3 
-BYTE O sORIVE 4 
BYTE O sORIVE 5 
-BYTE O sORIVE 6 
-BYTE 0 sORIVE 7 


sTABLE OF DRIVE TYPES (ORVTYP=8 BYTES) 
sORVTYP=0 IF ORIVE IS NONEXISTENT CORVSTA=0, ALSO) 
sORVTYP*5 IF DRIVE IS RPO? MOVING HEAD OPTION 
sORVTYP=4 IF DRIVE IS RPO7 FIX HEAD OPTION 
sORVTYP=-1 IF NOT RPO7 


ORVTYP: .BYTE 0 sORIVE O 
-BYTE 0 sORIVE 1 
BYTE O sORIVE 2 
BYTE O sORIVE 3 
-BYTE 0O sDRIVE 4 
-BYTE 0 sORIVE 5 
-BYTE 0 sORIVE 6 
BYTE O sORIVE 7 


sTABLE OF DUAL PORT INITIALIZATION INDICATORS 


SEG 0080 


D/ 
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RPO? DRIVER 
61 sOPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE ORIVE 
| sOPINT<O IF INITIALIZATION IS IN PROGRESS 
6 
64 020330 000 OPINT: .BYTE 0 sORIVE O 
65 020331 000 -<BYTE 0 sORIVE 1 
66 020332 000 BYTE O sORIVE 2 
67 020333 000 -BYTE O sORIVE 3 
68 020334 000 -BYTE 0 sORIVE 4 
69 020335 000 -<BYTE O sORIVE 5S 
70 020336 000 -<BYTE O sORIVE 6 
7. 020337 000 -BYTE 0 sORIVE 7 
73 sTABLE OF PENDING DUAL PORT REQUESTS 
74 sOPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
Lk sDPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
77 020340 000 DPRQS: .BYTE 0 sORIVE O 
78 020341 000 -BYTE O sORIVE 1 
79 020342 000 BYTE 0O sORIVE 2 
80 020343 000 BYTE 0 sORIVE 3 
81 020344 000 BYTE 0O sORIVE 4 
020345 000 BYTE 0O sORIVE 5S 
83 020346 000 BYTE 0O sORIVE 6 
. 020347 000 BYTE 0 sORIVE 7 
86 TRANSFER WAIT ary (TRNSWT=1 WORD) 
87 sTHIS IS A ONE WORD QUEVE. IT WILL CONTAIN THE ADDRESS OF 
4 ;"DPB” OF THE I/O OPERATION. 
= 020350 000000 TRNSWT: .WORD 0 
92 sSEARCH WAIT KEYS (SRCHWT=1 WORD) 
93 sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
9h sTHE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE I/0 
95 sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
+ 4 sEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O. 
+ 4 020352 000000 SRCHWT: .WORD 0 
100 sRPO7 DRIVER ACTIVE FLAG CACTORV=1 BYTE) 
101 sACTORV=0 IF DRIVER IS INACTIVE 
aoe SACTORV>0 IF ORIVER I5 ACTIVE 
14 020334 000 ACTORV: .BYTE 0O 
106 sSOFTWARE TIMER ROUTINE ACTIVE FLAG CACTSTR=1 BYTE) 
107 sACTSTR=O IF SOFTWARE TIMER ROUTINE IS INACTIVE 
end sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 
tr 020355 000 ACTSTR: .BYTE 0O 
112 
113 sTIMEOUT TABLE (TIMER=8 WORDS) 
its sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
116 020356 177777 TIMER: .WORD -1 sORIVE O 


117 020360 177777 -WORD -1 sORIVE 1 


E / 
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RPO” ORIVER 

118 020362 177777 . WORD 1 sDORIVE 2 

119 020364 177777 . WORD 1 sORIVE 3 

120 020366 177777 . WORD 1 sORIVE 4 

121 020370 177777 . WORD 1 sORIVE 5 

122 020372 177777 . WORD “a sORIVE 6 

et 020374 177777 . WORD «i sORIVE 7 

125 ;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 

126 ;DTUW<O IF NO DATA TRANSFER UNDERWAY 

44 sOTUW=+N CWHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 

1 


129 020376 177777 DTU: . WORD i 


re 
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RPO”? DRIVER 


OBO US wher 


010750 
012000 


020376 
177777 


162144 


sRHXX/RPO7 DRIVER INITIALIZATION CODE 
sTHIS ROUTINE WILL DETERMINE WHICH RPO7 DRIVES ARE 
sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
;TO THE PROPER STATE FOR EACH DRIVE. 


s:NOTE: 


3 
;CALL 
; JSR 


; RETURN 
o 
sNOTE: THE ‘P’ 


3 
RPINIT: JSR 
JSR 


1$: CLR 


2s: MOV 


3$: JSR 


4%: CLRB 
5%: 


J 
RTS 


OR ‘L' 


PC,RPINIT 


PC, SAVREG 
PC,ST.CLK 


C$GPRI 
RO, -(SP) 


#PRIOS RO 
C#SPRI 

PC ,CLRQUE 
@RPSTUO,R1 
OTIMER ,R2 
CR1)+ 
R1,R2 


i$ 
@0TUW,R2 
#-1,CR1)+ 
R1,R2 

es 
ORVSTA 
ORVSTA+2 
ORVSTA+4 
ORVSTA+6 


RPVEC+2, -( SP) 


@CLR, ARPCS2 
DRVNO,R1 
R4,ORVINT 
as 

5% 
ORVSTACR1) 
(SP)+,RO 
Cs#SPRI 

PC ,RESREG 
PC 


sDRIVE INITILIZATION ROUTINE 


THIS ROUTINE CALLS DRVINT 


CLOCK MUST BE STARTED 


sSAVE RO - RS 
sTURN ON THE CLOCK 
sSAVE THE PRESENT PROCESSOR STATUS 


sCHANGE THE PRIORITY TO 5 


sCLEAR ALL REQUEST QUEUES 
sFIRST ADDRESS TO BE CLEARED 
sLAST ADDRESS TO BE CLEARED 


s INITIALIZE 

;D0NE? 

3LOOP IF NO 

;SET ALL DRIVES TO OFFLINE 


sSETUP RHXX/RPO7 VECTOR 


sMASSBUS INIT 

sGET SELECTED DRIVE 

INIT THE DRIVE 

s'DVA' 4 SET OR PARITY ERROR 
sNORMAL RETURN 


sSET ORIVE STATUS TO OFFLINE 
sRESTORE THE PROCESSOR STATUS 


sRESTORE RO - RS 
sBYE-BYE 


SEQ 0083 


G/ 
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RPO? DRIVER 


177777 
003720 


177777 


000121 
024520 


010000 
024520 


020330 
020356 


162036 
162040 


162006 


020320 


020320 


020320 


;CALL 


ORVINT: 


19%; 


1%; 


228: 


2s: 


sTHIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 

sAN RPO7, IF IT IS, A “READ-IN PRESET” IS ISSUED AND FMT16 
:IS SET TO A “1”. THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
;INSURE THEY ARE ALL ON A "i", AND DEPENDING ON THEIR STATE, 
sORVSTA IS SET TO THE PROPER CONDITION. 


MOV @ORVNUM,R1 sORIVE NUMBER TO R1 

JSR R4,ORVINT sCALLED BY A JSR 

RETURN sERROR OCCURRED (PARITY) 

RE TURN2 sNORPAL RETURN 

MOV RS, -CSP) sSAVE RS 

= en sSET THE INITIAL FLAG 

MOV #2000. , TIMER(R1) sSET A 2 SECOND TIMER 
ASR R1 sORIVE ADDRESS 

CLRB DRVSTACR1) sSTART ORIVE STATUS AS OFFLINE 
CLRB ORVTYPCR1) sCLEAR THE DRIVE TYPE INDICATOR 
MOV R1,@RPCS2 sSELECT A DRIVE 

MOVB #111,@RPCS1 sD0 A DRIVE CLEAR COMMAND (€ SEIZE DRIVE) 
tH + whee @RPCS2 rNONEXISTENT ORIVE? 

JSR Pc, SET.IE :GO SET “IE” WITHOUT A “TRE” 
BR sLEAVE THIS ROUTINE 

CLRB DRVSTACR1) sSET DRIVE STATUS TO OFFLINE 
BIT @BIT11,@RPCS1 ;SEE IF ORIVE AVAILABLE 

BNE 22s sBRANCH IF DVA SET 

TST8 DPINT(R1) sSOFTWARE TIME OUT 

BNE 10$ ;BRANCH IF NOT 

BR 6$ sOTHERWISE EXIT 

- R4,RD.RP sREAD THE DRIVE TYPE REG. 

8$ sERROR RETURN ADDRESS 

MOV CSP )+,RS sPUT DRIVE TYPE IN RS 

MOVB #5 .ORVTYPCR1) 3SET RPO7 INDICATOR 

CMP #20040,R5 sSINGLE PORT RPO7 

BEQ 2s sBR IF YES 

CMP @24040,R5 sDUAL PORT RPO7 

BEQ 2s sBR IF YES 

MOVB 04, ,ORVTYPC(R1) sSET RPO7+ INDICATOR 

CMP 920042, sSINGLE PPRT RPO7+ 

BEG 2s sBRANCH IF SO 

CMP @24042,R5 sDUAL PORT RPO7+ 

BEQ 2s sBRANCH IF SO 

MOVB @-1,ORVTYPCR1) ;SET INDICATOR TO ‘OTHER’ 

BR 6% sEXIT 

MOV #121, -(SP) 3:00 A “READ-IN PRESET” 

= R4,WRT.RP 

8% 

MOV #BIT12,-(SP) sSET FMT16=1 

JSR R4,WRT.RP 


SEQ 0084 


H/ 
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RPO? DRIVER 

107 021010 021100 8$ 

108 021012 004437 024426 JSR R4,RD.RP sREAD RPDS 

109 021016 000012 l2 

110 021020 021100 8$ 

111 021022 012605 MOV le RS sAND SAVE IT IN RS 

112 021024 100015 BPL ;BRANCH IF ATA=0 

113 021026 116177 002744 161652 MOVB ATABIT(RL), @RPAS ;CLEAR ATTENTION BIT 

114 021034 004437 024426 JSR R4,RD.RP sFIND OUT WHY ATA=1 

115 021040 000014 14 

116 021042 021100 8$ 

117 021044 006126 ROL rt th 3IS IT UNSAFE? 

118 021046 100004 BPL 3;8R IF NOT 

119 021050 112761 177777 020310 MOVB e. 1,DRVSTACR1) ;SET UNSAFE INDICATOR 

120 021056 000407 BR sEXIT 

121 021060 005105 4$;: COM ;CHECK MOL, DPR, DRY, AND vv 

122 021062 042705 167077 BIC erCeBITIZISITOSIeTTOTIBITOE> RS 

123 021066 001003 BNE 6$ sBRANCH IF MOL , DPR, ORY. OR vV IS CLEAR 

124 021070 112761 000001 020310 MOVB #1,DRVSTACR1i) iSET DRIVE STATUS TO ONLINE 

125 021076 005724 6$: TST (R4)+ sSTEP OVER THE ERROR RETURN 

126 021100 7$: 

127 021100 006301 8$: ASL R1 sWORD INDEX 

128 021102 012761 177777 020356 MOV #-1,TIMER(R1) sSTOP THE CLOCK 

129 021110 006201 ASR R1 sDRIVE ADDRESS 

130 021112 105061 020330 CLRB DPINT(R1) 

131 021116 012605 MOV (SP)+,R5 ;RESTORE RS 

is 021120 000204 RTS R4 ;EXIT 

174 sREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 

136 ;CALL 

137 : 

138 ; JSR R4,RPO7 ;CALL THE RPO7 DRIVER 

139 3 PNTADR sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 

140 3 RETURNI sRETURN HERE IF QUEVE IS FULL 

141 : RE TURN2 ;sRETURN HERE IF REQUEST IS IN QUEUE OR THERE 

“a5 3 ;IS AN ERROR CONDITION 

144 021122 RPO7: sSAVE THE CALLING STATUS 

145 021122 104440 TRAP C$GPRI 

021124 010046 MOV RO, -C(SP) 
146 ;DON’T ALLOW ANY RPO7 INTERRUPTS 
147 021126 013700 002656 MOV RPVEC+2,RO 
021132 104441 TRAP CsSPRI 

148 021134 112737 000001 020354 MOVB #1,ACTORV sSET “ACTIVE DRIVER” FLAG 

149 021142 004737 010750 JSR PC, SAVREG sSAVE RO - RS 

150 021146 011402 MOV CR4),R2 sPICKUP THE DRIVE PARAMETER BLOCK POINTER 

151 021150 005062 000016 CLR 16(R2) sCLEAR THE STATUS/ERROR INDICATOR 

152 021154 111201 MOVB (R2),R1 sPICKUP THE DRIVE NUMBER 

153 021156 105761 020310 TSTB DRVSTACR1) sCHECK DRIVES STATUS 

154 021162 003006 BGT 1% sBRANCH IF ONLINE 

155 021164 004437 020566 JSR R4,ORVINT 3GO INIT. THE ORIVE 

34 021170 000421 BR 4% TD EMA —— 

158 021172 105761 020310 TSTB DRVSTACR1) ‘IS ORIVE STATUS ONLINE? 

159 021176 003436 BLE 6% 368R IF NOT 

160 021200 105761 020340 1%: TSTB OPRQS(R1) sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 


161 021204 001016 BNE S$ 3BR IF YES 


CZRJILBO RPO7 FCTNL TEST 


RPO? DRIVER 


021206 
021212 
021216 


021220 
021224 
021226 
021232 
021234 
021234 
021240 


021242 
021246 


021272 
021274 


021364 
021370 
021372 
021374 
021402 
021406 
021412 
021414 
021416 
021422 


010177 
004437 
000452 


105761 


012777 
032777 
001023 
004737 
000420 


012777 


[7 
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161466 MOV R1,aRPCS2 ;SELECT THE DRIVE 
025452 JSR R4 ,DRVQUE sPUT THIS REQUEST IN QUEUE 
BR 9$ sQUEVE IS FULL 
020300 2s: TSTB DRVACTCR1) sIS THIS DRIVE ACTIVE? 
BNE 8$ ;BR IF YES 
021364 JSR PC,OPT sCALL THE OPTIMIZER 
5 BR 8$ 
$: 
022536 4$: Se — ;GO HANDLE THE PARITY ERROR 
025452 5$: JSR R4,DRVQUE sPUT REQUEST IN QUEUE 
BR 9$ sQUEVE IS FULL 
000000 161450 MOV #0, @RPCC sWRITE THE — CYL REG 
000100 161404 od ee a." SET 
025004 JSR PC,SET.IE 3SET THE INTERRUPT 
BR 8s ;RETURN 
020310 6%: TSTB ee ;SEE IF DRIVE OFFLINE OR UNSAFE 
BLT 3;BR IF UNSAFE 
140000 000016 MOV eBIT1S!BIT14, 16(R2) sSET OFFLINE ERROR INDICATOR 
020320 TSTB DRVTYPC(R1) ;SEE IF OFFLINE OR NONEXISTENT 
BNE 8$ 3;8R IF OFFLINE 
100002 000016 MOV #BIT15!BITO1, 16(R2) sREPORT DRIVE NONEXISTENT 
BR 8$ :GO TO EXIT 
110000 000016 /7$: MOV #BIT1S!BIT12,16(R2) ;ORIVE IS UNSAFE 
011002 8$: JSR PC,RESREG sRESTORE RO - RS 
TST (R4)+ SETUP FOR NORMAL RETURN 
BR 10% sFINISH UP, THEN EXIT 
011002 9$; JSR PC, ,RESREG i RESTORE RO - RS 
10%: TST (R4)>+ sCORRECT THE RETURN ADDRESS 
020354 CLRB ACTORV ;sCLEAR “ACTIVE DRIVER” FLAG 
sRESTORE PRIORITY 
MOV (SP)+,RO 
TRAP CsSPRI 
RTS R4 sRETURN TO CALLER 


sOPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


3 
;CALL 
3 MOV @ORVNUM,R1 
Fy JSR PC,OPT 
010750 OPT: JSR PC, SAVREG 
TRAP C&GPRI 
MOV RO, -CSP) 
002744 020352 BICB ATABIT(R1), SRCHWT 
020340 CLRB OPRQS(R1) 
025526 JSR PC,GETREQ 
TST R2 
BEQ 7$ 
161256 MOV R1,@RPCS2 
000111 161240 MOV #111,@RPCS1 


sORIVE NUMBER TO R1 
sSETUP A COMMAND 


sSAVE RO - RS 


sCLEAR LA SEACH FLAG 
sRESET THE PORT REQ FLAG eeae 
sGET “OPB” POINTER OF REQUEST 
3IS THERE A REQUEST IN QUEUE? 
3NO-.-BRANCH TO EXIT 

}LOAD THE DRIVE ADDRESS seeeaee 
sCLEAR THE DRIVE 


SEQ 0086 


J/ 
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RPO? DRIVER 
217 021430 032777 000400 161244 BIT 
218 021436 001445 BEQ 
219 021440 105761 020310 10$: TSTB 
220 021444 003014 BGT 
221 021446 004737 025550 JSR 
222 021452 012762 140000 000016 MOV 
223 021460 105761 020310 TSTB 
224 021464 BPL 
225 021466 012762 110000 000016 MOV 
4 021474 000450 BR 
228 021476 122762 000150 000002 15%: CMPB 
229 021504 002407 BLT 
230 021506 122762 000135 000002 CMPB 
231 021514 001403 BEQ 
232 021516 004737 022126 JSR 
t+ 021522 000435 BR 
235 021524 005737 020376 2s: TST 
236 021530 002003 BGE 
237 021532 004737 021630 3%: JSR 
+4 021536 000427 BR 
240 021540 004737 022014 4$: JSR 
oss 021544 000424 BR 
243 021546 112761 177777 020340 5%: MOVB 
244 021554 010103 MOV 
245 021556 006303 ASL 
246 021560 012763 047040 020356 MOV 
247 021566 012777 000000 161132 MOV 
248 021574 000402 BR 
249 021576 004737 022536 6%: JSR 
250 021602 032777 000100 161060 7%: BIT 
251 021610 001002 BNE 
252 021612 004737 025004 JSR 
253 021616 8$: 
254 021616 012600 MOV 
021620 104441 TRAP 
255 021622 004737 011002 JSR 
256 021626 000207 RTS 


sDOPR SET ? 


#BIT8,@RPOS 
5$ 3TO PROT REQUEST ,IF NOT 


ORVSTACR1) sIS DRIVE ONLINE? 

1$ ; YES - -BRANCH 

PC ,POPQUE sNO--REMOVE REQUEST FROM QUEUE 
oBIT15!B1T14,16(R2) sSET OFFLINE STATUS/ERROR INDICATOR 
DRVSTACR1) sIS ORIVE UNSAFE ? 


8% ;BR TO EXIT IF NOT 
oBIT1S!BIT12,16(R2) sSET UNSAFE STATUS/ERROR INDICATOR 
8$ sBRANCH TO EXIT 


#150,2(R2) sIS THE REQUEST FOR 1/0? 

2s s YES- -BRANCH 

#135,2(R2) sIS THE CIAGNOSTIC COMMAND ? 
2s sBRANCH IF SO 

PC,CI4 sCALL THE COMMAND INITIATOR 
8$ sBRANCH TO EXIT 


DTUW sDATA TRANSFER UNDERWAY ? 


ay sYES--GO START A SEARCH 
= sSTART A DATA TRANSFER 
PC,CI3 sSTART A SEARCH 

8$ :GO TO THE EXIT 
#-1,0PRQS(R1) sSET PORT REQUEST INDICATOR 
R1,R3 sSET UP TO ADDRESS WORDS 


R3 sCONVERT TO WORD INDEX 

#20000. , TIMER(R3) sSET A 20. SECOND TIMER 
#0, @RPCC ;SET PORT REQUEST 

7$ ;EXIT 

sPROCESS THE PARITY ERROR 


PC,.CI7 
oBITO6,@RPCS1 sSEE IF ‘IE’ ALREADY SET 


8% ;BR IF SET 

PC, SET.IE sSET “IE” WITHOUT A “TRE” 
sRESTORE PROC. STATUS 

(SP)+,RO 

C$SPRI 


a sRESTORE RO - RS 


SEQ 0087 


IKK 7 
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RPO? DRIVER 


OBNDUS whe 


021630 


024520 


024520 


100000 


024520 


000002 


sCOMMAND INITIATOR 


CALL 
MOV 
MOV 
JSR 


CI1: JSR 


1$: ADD 


2s: MOV 


CI3: MOV 


@DRVNUM,R1 
“DPB ,R2 
PC,CI? 


PC ,POPQUE 
R2, TRNSWT 
R2,R3 
RPCS1,R4 


R1,@RPCS2 
ee 


1 
4CR2),-CSP) 
@OMD , (SP ) 
R4,WRT.RP 


(R3)+, C(R4)+ 
CR3)+,CR4)+ 
(R3)+,-(SP) 
R4,WRT.RP 


CR3)+,-CSP) 
R4,WRT.RP 


#B1T15,(R2) 
2s 


-CSP) 
ts (S ae 
4, WRT .R 


2(R2), -CSP) 
R4,WRT.RP 


R1,0TUW 
crs 


RPCS1,R4 
R1,@RPCS2 
12(R2), 3) 
R4,WRT.R 


sORIVE NUMBER 
sADDRESS OF DPB 

sCI?= CI1,CI3, OR CI4 
s WHERE : 


;CI1=DATA TRANSFER 
;CI3*SEARCH REQUESTED BY DATA XFER 
:CI4=NOT DATA TRANSFER 


sREMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
sPUT REQ. IN TRANSFER WAIT QUEUE 

s0P6 ADDRESS TO R3 

sRPCS1 ADDRESS 

sSELECT ORIVE 

sDIAGNOSTIC COMMAND ? 

sBRANCH IF NOT 

sGET THE RT NUMBER, PARAMETERS 

sSET THE GIAGNOSTIC MODE BIT 

;WRITE THE RPMR1 REG 


sRETURN HERE ON ERROR 
;LOAD THE COMMAND AND EXIT 


sDESIRED WORD COUNT 

sRPWC ADDRESS 

sLOAD WORD COUNT 

sLOAD BUFFER ADDRESS 

sLOAD SECTOR AND TRACK 

sCALL THE LOADC(WRITE) ROUTINE 
sINDEX OF REGISTER TO LOAD 
sRETURN HERE ON ERROR 

sLOAD CYLINDER ADDRESS 


sRETURN HERE ON ERROR 

sMAINTENANCE MODE FLAG BIT SET ? 

sBRANCH IF NOT 

sSET DMD BIT IN RPMR 

sSET DMO BIT ONLY THE REST BITS MUST BE O 
sWRITE TO RPMR 


sRETURN HERE ON ERROR 


sLOAD “COMMAND+GO”, “A17EA16", AND “PSEL” 


sRETURN HERE ON ERROR 
sSET “DATA TRANSFER UNDERWAY” 


sRPCS1 ADDRESS 
sSELECT DRIVE 
sDESIRED CYLINDER ADDRESS 


sRETURN HERE ON ERROR 


SEQ 0088 


CZRJLBO RPO7 FCTNL TEST 


RPO? DRIVER 


022124 
022126 
022132 


022136 
022142 


022210 
022212 


022274 


016246 
004437 


0225: » 


012746 
004437 
000000 


000006 
022536 
000403 


a; 
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000010 
024520 


100000 
100000 
024520 


000131 
024520 


002744 


000010 
024520 


000105 


000012 
024520 


000115 
024426 


000001 
024520 


000107 
000117 
000147 
024426 


020352 


1$: 


cI4: 


1$: 
2s: 


3$: 


4$: 


S$: 


10(R2), -CSP) 
R4,WRT.RP 


+> japan 
-(SP) 


#BIT15,(SP) 
R4,WRT.RP 


@SEARCH, -( SP) 
R4,WRT. RP 


ATABITCR1), SRCHWT 
cIs 


RPCS1,R4 
R1,@RPCS2 
2(R2),R3 
@SEARCH,R3 


1$ 
10(R2),-CSP) 
R4,WRT.RP 


2s 

@SEEK ,R3 

3% 

12(R2), - a 
R4,WRT.R 

cI6é 

@OF FSET ,R3 
as 

R4,RDO.RP 


1(R2), (SP) 
R4,WRT.RP 


cI6é 

@RECAL ,R3 
cI6é 
@RTC,RS 
cI6é 

+ lames 
R4,RO.RP 


+ THE SECTOR AND TRACK ADDRESS 
sLOAD DESIRED TRACK & SECTOR 


sRETURN HERE ON ERROR 
sMAINTENANCE MODE ? 
sBRANCH IF NOT 


:SET OMD BIT ONLY, THE REST BITS MUST BE O 


sRETURN HERE ON ERROR 
sSTART A SEARCH 


sRETURN HERE ON ERROR 
sSET “SEARCH WAIT” KEY 


sRPCS1 ADDRESS 

sSELECT DRIVE 

sPICKUP THE REQUESTED COMMAND 
sIS IT A SEARCH COMMAND? 
s;BRANCH IF NO 

sLOAD DESIRED TRACK & SECTOR 


sRETURN HERE ON ERROR 
:GO LOAD CYLINDER 


3IS IT A SEEK COMMAND 
sBRANCH IF NO 
sLOAD DESIRED CYLINDER 


sRETURN HERE ON ERROR 


Zs a “OFFSET” REGISTER CHANGE COMMAND ? 
3 

sMERGE THE OFFSET VALUE INTO RPOF 

sBUT DON’T CHANGE THE UPPER 

sRETURN HERE ON ERROR 

sBYTE WHEN LOADING THE 

sREGISTER (RPOF ) 


sRETURN HERE ON ERROR 
:GO START THE COMMAND 


sIS IT A “RECALIBRATE” COMMAND? 
sBRANCH IF YES 

sIS IT A RETURN TO CENTER? 
sBRANCH IF YES 

sIS IT A “SET FORMAT” COMMAND? 
sBRANCH IF NO 

sREAD THE OFFSET REGISTER 


SEQ 0089 


z 


M/ 
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RPO? DRIVER 

115 022276 022536 CI? sRETURN HERE ON ERROR 

116 022300 116266 000001 000001 MOVB 1(R2),1(SP) sCOMBINE "FMT16","ECI", AND “HCI” 

117 022306 004437 024520 JSR R4,WRT.RP sLOAD “FMT16", "“ECI”, AND/OR “HCI”. 

118 022312 000032 32 

119 022314 022536 C17 sRETURN HERE ON ERROR 

io 022316 000445 BR 12$ 

122 022320 122703 000141 6$: CMPB @GETREG,R3S sIS IT A “GET REGISTER” COMMAND? 

123 022324 001023 BNE 10$ sBRANCH IF NO 

124 022326 016203 000006 7$; MOV 6(R2),R3 sPOINTS TO 1ST ADORESS OF WHERE 

125 sTO PUT THE REGISTER(S) 

126 022332 116237 000010 022350 MOVB 10(R2),9$ sINIT. THE INDEX FOR THE FIRST REG. 

127 022340 116205 000011 MOVB 11(R2),R5 s INDEX OF LAST REG. TO MOVE 

128 022344 004437 024426 8$: JSR R4,RD.RP sREAD RHXX/RPO7 REGISTER 

129 022350 (00000 9$: te) s INDEX OF REG. TO READ 

130 022352 022536 cI? sRETURN HERE ON ERROR 

131 022354 012623 MOV (SP)+,CR3)+ sGET THE CONTENTS OF RHXX//RPO7 REG. 

132 022356 023705 022350 CMP 9$,R5 sLAST REG. BEEN READ? 

133 022362 001423 BEQ 12% sGET OUT IF YES 

134 022364 062737 000002 022350 ADD 02 ,9% s INCREASE THE INDEX BY 2 

14 022372 000764 BR 8$ sLOOP--MORE TO READ 

137 022374 122703 000145 10$: CMPB OMAINT ,R3 sIS IT A “SELECT MAINTENANCE” COMMAND? 

138 022400 001007 BNE 11% sBRANCH IF NOT 

139 022402 012746 100000 MOV DMD, - (SP) sSET DIAGNOSTIC MODE COMMAND 

140 022406 004437 024520 JSR R4,WRT.RP sWRITE THE MAINTENANCE REGISTER 

141 022412 000024 24 

142 022414 022536 cI7 sRETURN HERE ON ERROR 

oy 022416 000405 BR 12$ sEXIT 

145 022420 010346 11%: MOV R3,-CSP) sLOAD THE COMMAND 

146 022422 004437 024520 JSR R4,WRT.RP 

147 022426 000000 te) s INDEX OF REG. TO WRITE 

148 022430 022536 cI7 sRETURN HERE ON ERROR 

149 022432 004737 025550 12$: JSR PC ,POPQUE sREMOVE REQ. FROM QUEUE 

150 022436 052762 000200 000016 BIS @B1T07,16(R2) ;SET THE “DONE” BIT 

151 022444 004737 024644 JSR PC, SVRHXX ;YES--GO SAVE THE REGISTERS 

ior 022450 000207 13%: RTS PC sRETURN TO USER 

154 022452 006301 cIs: ASL R1 

155 022454 012761 001750 020356 MOV #1000. , TIMER(R1) sSET A ONE SECOND TIMER 

156 022462 006201 ASR R1 

157 022464 112761 000001 020300 MOVB #1,DRVACT(R1)  ;SET THE DRIVE ACTIVE 

tH 022472 000207 RTS PC sRETURN TO THE USER 

160 022474 032762 100000 000000 CI6: BIT #BIT1S,0(CR2) sMAINTENANCE MODE ? 

161 022502 001407 BEQ 1$ sBRANCH IF NOT 

162 022504 005046 CLR -(SP) 3 

1635 022506 052716 100000 BIS #B1IT15,(SP) sSET OMO BIT ONLY 

164 022512 004437 024520 JSR R4,WRT.RP sTHE REST BITS MUST BE 0 

165 022516 000024 24 

166 022520 022536 cI7 sRETURN HERE ON ERROR 

167 022522 010346 1%: MOV R3,-CSP) sLOAD THE COMMAND 

168 022524 004437 024520 JSR R4,WRT.RP 

169 022530 000000 0 sINDEX OF REG. TO WRITE 

170 022532 022536 C17 sRETURN HERE ON ERROR 

171 022534 000746 BR cIs 


Radi cba dbo an sk tw to 


N7 
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RPO? 


DRIVER 


020350 
177777 


010750 


177777 
020350 


000002 
177770 


177777 
020350 
025350 
000040 


025432 
020310 


000016 


020376 


160000 
000016 


000016 
020356 


020376 


020376 


157662 


CcI?7: 
1$: 


2s: 


CI7B: 


2s: 


1$: 


cI8: 


1$: 


228: 


2s: 


3%: 
4$: 


5$: 


6%: 


R2 
2s 


PC 
#BIT1iS!BIT11, 16(R2) 


#111,-CSP) 
T.RP 


PC ,EMPTYQ 
OPRQS(R1) 
DRVACTCR1) 
-y pheameens 
TRNSWT 
@-1,0TUW 
PC 

PC. SAVREG 
Ri 

R3 
ORVACTCR1) 
22% 
ne 


£ 
TRNSWT ,R2 
call 


2 
2 geet: 


eert12, @RPCS2 
eertis:erro1, 16(R2) 
sCONT 


SEQ 0091 


sANYTHING IN QUEUE ? 
rene IF QUEVE IS THERE 
OTHERWISE EXIT 
sSET “PARITY” ERROR INDICATOR 


:00 A “DRIVE CLEAR” 


sRETURN HERE ON ERROR 

sEMPTY THE QUEUE 

sCLEAR THE PORT REQUEST FLAG 

sORIVE IS IDLE 

sIF THIS ORIVE HAD AN I/0 REQUEST 
sIN PROGRESS CLEAR ALL OF THE FLAGS 


sSAVE RO - RS 


sORIVE ACTIVE? 
ANC! 


T 
sGET THE “TRANSFER WAIT” QUEUE 
:D0ID ay E . HAVE AN I/0 IN PROGRESS? 
sBRANCH I 
iGET THe DPB POINTER 
sQUEVE ENTRY FOR DRIVE ? 


sSET ‘DRIVE NON-EXISTENT’ INDICATOR 
INUE 


#B8IT15!BIT10,16(R2) ;SET ns PARITY” ERROR INDICATOR 


@-1, TIMER(R3) 


DRVACT(R1) 
DPRQS(R1) 
R1,0TUW 


PC ,CLRQUE 
oCLR GRPCSE 


PC,EMPTYQ 
DRVSTACR1) 


sSTOP THE TI 

sSET “DRIVE ACTIVE” TO IDOLE 

sCLEAR PORT REQUEST FLAG 

sIS THIS ORIVE SETUP FOR A TRANSFER 
sBR IF NOT 

sRESET THE INDICATOR 

sCLEAR THE TRANSFER QUEUE 

sMOVE TO THE NEXT DRIVE 


sBRANCH IF MORE DRIVES 

sNO DATA TRANSFERS UNDERWAY 
sCLEAR THE ‘TRANSFER WAIT’ QUEUE 
sCLEAR ALL OF THE REQUEST QUEUES 
s00 A MASSBUS INIT. 

s CONTINUE 


sCLEAR THE DRIVE'S QUEUE 
sSET ORIVE TO OFFLINE 


} 
| 
i 


— ee ee Cees 


ba 
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RPO? DRIVER 


229 023030 
230 023034 
21 023040 
232 0235044 


105061 
004737 
004737 
000207 


025004 7$: 


CLRB 
JSR 
JSR 
RTS 


SEG 9092 
DRVTYPCR1) sCLEAR THE DRIVE TYPE INDICA’OR 
PC,SE'.IE sSET “IE” WITHOUT “TRE” 
PC,RESREG sRESTORE RO - RS 
PC sRETURN 


CZRJLBO RPO7 FCTNL TEST 


RPO? DRIVER 


023114 
023114 


023116 


023312 
023316 


112737 
37 


117703 
001014 
004437 
000090 


CH 
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000001 
002246 
010750 
020376 


023116 
023304 


011002 
020354 


020300 
177777 


177777 
020350 
020350 
000200 


157514 
024426 


157376 
024426 


020354 


020376 
020356 


000016 


000002 
157464 


157422 
000016 


157374 
157366 


s INTERRUPT SERVICE ROUTINE 


ISRV: MOVB #1,ACTORV 
INC ISRCNT 
JSR PC, SAVREG 
MOV DOTUW,R1 
BLT 1$ 
JSR PC,TD 
BR 23 
18: JSR a Th 
2s: JSR PC ,RESREG 
CLRB ACTORV 
L10012: 
RTI 
s TRANSFER DONE ROUTINE 
TO: CLRB DRVACT(R1) 
MOV #-1,0TUW 
ASL R1 
MOV @-1, TIMER(R1) 
ASR R1 
MOV TRNSWT ,R2 
CLR TRNSWT 
BIS @BITO7,16(R2) 
MOV R1,9RPCS2 
= R4,RD.RP 
CcI7 
ROL CSP )e 
BMI 3$ 
JSR PC, SVRHXX 
CMPB #135,2(R2) 
BNE 1$ 
MOvB ATABIT(CR1),@RPAS 
1%; JSR PC ,GETREQ 
TST R2 
BEQ es 
JSR PC,OPT 
BR sc 
2s: MOV #113,@8RPCS1 
BR sc 
3%: 81S 
JSR PC.EMP 
JSR PC, SVRHXX 
MOV 040111, 9RPCS1 
MOV #113,8RPCS1 
BR sc 
sSPECIAL CONDITION ROUTINE 
sc: MOVB ORPAS ,R3 
BNE 2s 
R4,RO.RP 


SEQ 0093 


sSET “ACTIVE ORIVER” 
sCOUNT INTERRUPTS 
sSAVE RO - RS 

sGET “DATA TRANSFER UNDERWAY” INDICATOR 
sBRANCH IF NO DATA TRANSFER UNDERWAY 
sCALL TRANSFER DONE 

sEXIT 

;CALL SPECIAL CONDITIONS 

sRESTORE RO - RS 

sCLEAR “ACTIVE ORIVER” FLAG 


FLAG 


sSET ORIVE ACTIVE INDICATOR TO IDLE 
sNO DATA TRANSFERS UNDERWAY 


sCANCEL TIMEOUT 


sGET “DPB” ADDRESS FROM THE 
s TRANSFER WAIT QUEVE--CLEAR QUEUE 


3SET 
sSELECT THE ORIVE 
s TRANSFER ERROR( TRE=1)? 


sRETURN HERE ON ERROR 


3BR IF YES 
sYES--SAVE THE REGISTERS 
3IE FROM DIAGNOSTIC COMMAND ? 
sBRANCH IF NOT 
sRESET THE ATA BIT 
sGET OPB POINTER 
sENTRY FOR DRIVE ? 
368R IF NOT 
sCALL OPTIMIZER 
sCHECK OTHER DRIVES 


sRELEASE THE ORIVE 
FOR OTHER DRIVES 


3 CHECK 
ro gd st aa 16¢R2)_ sSET DATA ERROR FLAG 


MPTY THE “DRIVE'S WAIT” QUEUE 
sSAVE THE RHXX/RPO7 REGISTERS 
sISSUE A “DRIVE CLEAR” 
sISSUE A RELEASE TO THE DRIVE 
sCHECK FOR OTHER DRIVES 


sREAD “RPAS o 
sBRANCH IF ANY ‘ATA’ BITS SET 
sREAD CONTROL AND STATUS REGISTER 


C) 
De 
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5£Q 0094 
RPO? DRIVER te 


023524 


023526 
023530 


025004 


023702 
020310 
020300 
023702 
020310 


020204 


020000 


000111 
024520 


1$: 
2s: 


scs: 
SCc4: 


SCS: 
1%: 


2s: 


5$: 


6%: 


7$: 


(SP )-+ 
1$ 


PC,SET.IE 
PC 


OPRAS(R1) 
2s 

sci3 
—_— 
PC ,.GETREQ 
PC, SVRHXX 
PC.SCi2 
DRVSTACR1) 
6% 
ORVACTCR1) 
Sc6 
PC,SC12 
ORVSTACR1) 
7$ 


R1 
R1 


R1 
RPSTUO+4(R1),R5 
R1 


R1 

R1 
@BIT13,R5 
8$ 
#111,-CSP) 
R4,WRT.RP 
(SP),RS 


sc4 


;RETURN HR «ON ERROR 
sIS "“IE"=1? 


sYES, NO ORIVES TO CHECK 


sSET INTERRUPT ENABLE 

sRETURN 

sPROCESS ALL DRIVES THAT HAVE 
3AN "ATA" #1 


sATA=1? 
3 YES- -BRANCH 
sMOVE TO THE NEXT DRIVE 


sBRANCH IF MORE TO CHECK? 
sCLEAN OFF THE STACK 
sRETURN TO USER 


gh 1. OUTSTANDING ? 

: 

sSTART Tre OUTSTANDING COMMAND 
sCHECK THE DRIVE STATUS 

sBRANCH IF ONLINE 

sGET DPB POINTER 

sSAVE THE RHXX/RPO7 REGISTERS 

sSAVE RPDS, RPER1, RPER3, AND RPER2 
sALSO DO A ORIVE INIT CORVINT) 

sDID ORIVE COME ONLINE? 
3NO- - -BRANCH 

sDRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
s6R IF EITHER 

sSAVE RPDS, RPER1, RPERS, AND RPER2 
sALSO DO A DRVINT 

sCHECK ON DRIVE'S STATUS 

;B8R IF UNSAFE 


sADORESS PLUG CHANGED 

sBRANCH IF SO 

sORIVE CLEAR 

sWRITE THE COMMAND INTO RPCS1 
sREGISTER INDEX 

sPARITY EXIT ADDRESS 

sPICKUP C(RPAS) BEFORE THE ERROR CALL 


sGO CHECK FOR MORE ATA’'S 


CZRJLBO RPO7 FCTNL TEST 


RPO? DRIVER 


023532 


010177 
116177 
105761 
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SEQ 9095 


BR Sc4 sCHECK FOR MORE DRIVES 
Sc6: ASL R1 sSETUP TO ADDRESS WORDS 
177777 020356 MOV #-1, TIMER(R1) sSTOP THE TIMER 
ASR R1 sRESTORE THE DRIVE ADDRESS 
025526 JSR PC,GETREQ sGET THE DPB POINTER FROM THE QUEVE 
157122 MOV R1,@RPCS2 sSELECT ORIVE 
023612 JMP sCil sPROCESS THE SEARCH 
020300 SCc8: TSTB ORVACTC(R1) 3IS ORIVE IDLE? 
BEQ 1$ 3 YES- -BRANCH 
025526 JSR PC ,GETREQ sGET OPB POINTER 
022536 JSR PC,CI7 sPROCESS THE PARITY ERROR 
BR 2s 3 CONTINUE 
022552 18: JSR PC,CI7B8 sPROCESS THE UNCORRECTABLE PARITY ERROR 
023360 2s: JMP sc4 sCHECK MORE ORIVES 
SCil: 
020300 1$: CLRB DRVACTC(R1) sSET ORIVE IDOLE 
002744 020352 BITB ATABITCR1),SRCHWT ;DOING A SEARCH OPERATION FOR 
sAN I/0 COMMAND? 
BNE 2s sBRANCH IF YES 
025550 JSR PC ,POPQUE sREMOVE REQUEST FROM QUEUE 
000200 000016 BIS OB IT07,16(R2) sSET “DONE” BIT 
024644 JSR PC , SVRHXX sYES--SAVE ALL OF THE RHXX/RPO7 REG'S 
002744 157034 2%: MOVB ATABITCR1),@RPAS ;CLEAR ATTENTION BIT 
002744 020352 BICB ATABITCR1), SRCHWT sCLEAR IMPLIED SEEK SET 
ASL R1 sWORD INDEX 
177777 020356 MOV @-1, TIMER(R1) sSTOP CLOCK 
ASR R1 sRESTORE R1 
021364 JSR PC.OPT :START A REQUEST 
023360 JMP Sc4 sCHECK FOR MORE ORIVES 
156772 SCle: MOV R1,ARPCS2 sSELECT DRIVE 
ASL R1 
ASL R1 
ASL R1 
156762 020200 MOV @RPDS ,RPSTUOC(R1) 
156756 020202 MOV @RPER1 ,.RPSTUO+2(R1) 
156774 020204 MOV @RPER? ,RPSTUO+4(R1) 
156770 020206 MOV QRPERS ,.RPSTUO+6(R1) 
ASR R1 
= f 
020566 JSR R4,ORVINT sINIT. THE STATE OF THE DRIVE 
BR s TAKE ERROR EXIT 
RTS PC sRETURN 
1%: TST (SP )-+ sCLEAR THE STACK 
BR sce sPROCESS THE PARITY ERROR 
$C13:; ASL R1 sSETUP TO ADDRESS WORDS 
= o-t TENE? 3STOP THE TIMER 
: 3 
156706 MOV R1,@RPCS2 sSELECT THE ORIVE 
002744 156706 MOVB ATABITCR1),@RPAS ;CLEAR THE ATTENTION BIT 
020330 1%: TST6 OPINTC(R1) sINITIALIZING THE DRIVE ? 
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024066 
024072 


024074 
024100 


024176 


032777 
001003 


004737 
000402 


004737 
000137 


020330 
020566 


020310 


000016 


156616 


020355 


020356 


2s: 


4$: 
3%; 


JSR 


es 
DPINTC(R1) 
R4,ORVINT 
DRVSTACR1) 
2s 

R2 


3% 
PC ,GETREQ 


SEQ 0096 


;BR IF NOT 

sCLEAR THE INIT INDICATOR 
sGO INIT THE DRIVE 

sDOUMMY PARITY ERROR RETURN 
sORIVE ONLINE ? 

sBR IF YES -- START ORDER 
sQUEVE ENTRY FOR THE DRIVE 
s;6R IF NOT 

sGET DPB ADDRESS 


@BIT1S!BIT14,16(R2) ;INFORP USER THAT DRIVE OFFLINE 


PC , SVRHXX 
-POPQUE 


o8IT8,@RPDS 
as 


sSAVE THE REGISTERS 
sREMOVE THE QUEUE 


sDVA SET ? 
3SET THEN CALL OPT 


R1 
#60000. , TIMER(R1);SET A 60. SECOND TIMER 


R1 
PC, SET. IE 
3$ 


PC,OPT 
Ssc4 


3/RPO7 TIMER ROUTINE 
3sCALL 


1%: 


2s: 


3%: 
4%: 


PC,RPTMR 
ACTORV 

4$ 
#1,ACTSTR 
PC, SAVREG 
R1 

R3 
_— 
ali TIMERC(R3) 
PC.STO 

R 


1 
CR3)>+ 
08. ,R1 
1% 
PC ,RESREG 
ACTSTR 
C(SP)+,(SP) 
PC 


sSOFTWARE TIMEOUT ROUTINE 


a 
sNOTE: THIS ROU 
OR GRE 


3 
sCALL: 
PF 


sto 
MOV 


@ORVNUM,R1 


sSTART THE PENDING REQUEST 
sPROCESS OTHER DRIVES 


sELASPED TIME IN MILLISECONDS ON THE STACK 
sCALL RPO7 TIME ROUTINE 


sCHECK “ACTORV € ACTSTR” 
sIF NON ZERO EXIT 

sSET “ACTSTR” 

sSAVE RO - RS 

sSTART WITH DRIVE 0 


sIS THE TIMER RUNNING? 

sBRANCH IF NO 

sCOUNT THE INTERVAL 

sBR IF NO SOFTWARE TIMEOUT 
sCALL SOFTWARE TIMEOUT ROUTINE 
sMOVE TO NEXT ORIVE 


sOUT OF DRIVES? 

sBRANCH IF NO 

sRESTORE RO - RS 

sZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
sADJUST THE STACK 

sRETURN 


TINE MUST BE ENTERED AT PRIORITY 6 
ATER 


sORIVE NUMBER 


CZRJLBO RPO7 FCTNL TEST 


RPO? DRIVER 


010146 
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020350 
020376 


020330 
020340 


177777 
025526 


020350 
177777 


020330 
020310 
177777 
025526 
140000 


177777 


020356 


000016 


000016 


020376 


020356 


000016 
020356 


000016 


STO: 


18: BIS 


2s: 


3%: 


4$: 
5%: 


sROUTINE TO 


3 
8 
$ INDEX 
3 
F 
* 


PC,STO 


TRNSWT, R2 
Rl, DTUW 


1$ 
OPINTC(R1) 
es 
en 


4 
@-1, TIMER(R3) 
+ Soeahiteete 


5$ H 
OBIT1S!BIT9,16(R2) 


S$ EXIT 
a hl ds =e 16( R2) 


PC,SV 
DRVACTCRI) 
TRNSWT 
@-1,0TUW 

S$ 

OPINTC(R1) 
DRVSTACR1) 
@-1, TIMER(R3) 
+ Daath 


3CALL 


sSAVE R1-R4 
; 
5 


o 

sPICKUP THE TRANSFER QUEUE 

; TRANSFER UNDER WAY ON THIS DRIVE 
sBRANCH IF SO 

sORIVE INITIALIZE ? 

sBRANCH IF SO 

sPROT REQUEST ? 

sBRANCH IF SO 

sSTOP THE TIMER 

sGET THE QUEUE 

sEXIT IF NONE 


sTIME OUT OR LOST INTERRUPT 
sON HOUSE KEEPING COMMANDS 


sTIME OUT ON DATA TRANSFER 
sREAD ALL REGISTERS 
;DRRIVE SET TO IDLE 
s;CLEAR DATA TRANSFER QUEUE 
re THE TRANSFER DRIVE @ 
5 
sCLEAR THE INITIALIZE INDICATOR 
sSET UNIT TO OFFLINE 
sSTOP THE TIMER 
s;GET THE DPB ADDRESS 
ens IN QUEVE 
BRANCH IF NOT 


S$ 
> laa aia +16(R2) 1 INFORM THE USER DRIVE NOT AVAILABLE 


2-1, TIMER(R3) 
OPRQS(R1) 
— 


iSTOP THE TIMER 
sCLEAR THE PORT REQUEST INDICATOR 
sGET DPB ADDRESS 
sANYTHING IN QUEUE ? 
IF NONE 


et ] sBRANCH 
@BIT1S!BIT2, 16(R2) s INFORM USER OF PROT REQUEST TIMEOUT 


PC . SVRHXX 


R4,RD.RP 


sREAD ALL REGISTERS 
sCANCEL ALL QUEVE REQ 
sRESTORE R4-R1 


3EXIT 


READ A RHXX/RPO7 REGISTER 


sGO READ A REGISTER 

sREG. INDEX FROM BASE 

sERROR ADDRESS--PROCESS ERROR STARTING 
sAT THIS ADDRESS 

sCONTENTS OF REG. IS ON THE STACK 


SEG 0097 


nn a | ee 


CZRJLBO RPO7 FCTNL TEST 
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000150 
156130 
177770 
000007 


156176 


3 
RD.RP: 


1$: 


2s: 
3$: 


sROUTINE TO 


WRT .RP: 


1%: 


(SP), -CSP) 


RPCS1,(SP) 
#10,(SP) 
@BIT12,a(SP) 


1$ 
oBIT13,@RPCS 
2s 


2(SP),4(SP) 
(SP)+,(SP)>+ 


1 


sSAVE R4 
— OF THE 


sREAD THE CONTENTS OF THE REG 
sCHECK IF NON-EXIST DRIVE 


; 
sNED BIT SET ? 
sERROR EXIT 


sE 
; MOVE THE R4 TO TOP OF STACK 
sCLEAR OFF THE STACK 


a Ra sERROR EXIT ADDRESS 


22, R4 
(SP)+ 
R4 


WRITE A REGISTER 


DATA, “yy 
R4,WRT.R 


CR4)+, -CSP) 
#150,4(SP) 
@RPCS1, -(SP) 
(SP) 
@tC7,(SP) 
(SP), 7(SP) 
> 
RPCS1,(SP) 
4(SP),a(SP) 
RPCS1 (SP) 
eB1Ti2.a¢ SP) 
RPCS1,(SP) 
014,(SP) 
oB81T3,a(SP) 
28 
02,R4 
3% 
(R4),R4 
(SP) 
(SP)+,(SP) 
R4 


3;EXIT 

sNORMAL EXIT 
sCLEAR OFF STACK 
sEXIT 


sDATA TO BE LOADED ON THE STACK 


sCALL THE ROUTINE TO LOADC(WRITE) THE REG. 


s INDEX OF THE REGISTER TO BE LOADED 
sADDRESS TO RETURN TO ON AN ERROR 
sERROR FREE RETURN 


sFORMING THE REG ADDRESS 
sBRANCH IF NOT RPCS1 


Cc 
sMERG THE A17,A18,PSEL BITS 
sCHOP OFF THE REST BITS FROM RPCS1 
sATTACH A17,A18,PSEL TO COMMAND 
sRESTORE STACK LEVEL 
sTHE DEST REG ADORESS 
sWRITE THE REGISTER 
wee NED,PAR BITS 


; NONE EXIST DRIVE ? 
sBRANCH IF IT IS 
sADDRESS RPER1 


3 
3sPAR SET ? 
sBRANCH IF SO 


sERROR EXIT 

;CLEAR OFF THE STACK 
sMOVE R4 TO TOP OF STACK 
3EXIT 


sROUTINE TO SAVE THE RHXX/RPO7 REGISTERS AS PER DPB+14 


SEQ 00986 


CZRJILBO RPO7 FCTNL TEST 


RPO? DRIVER 


024644 


024746 


024750 
024754 
024760 
024762 
024766 
024772 
024774 
024776 
024776 
025002 


012423 
011413 


004737 
000207 


18 
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010750 
156020 
000014 


024722 
024722 


002670 
155662 


040000 


000100 
010000 


000022 
155770 


000046 
024722 


155640 


F 
3CALL 
: 
; 


SVRHXX : 


1$: 


2s: 
3$: 


4$: 


S$: 
6%: 


7$: 


SET.IE: 


sROUTINE TO SET 
CALL 


@DPBNUM , R2 
PC, SVRHXX 


PC, SAVREG 
Re 

7$ 
(R2),@RPCS2 


14(R2),R3 
7$ 


3$ 
3$,@22 


es 
no 
C(R3)+ 

as 


R4,RD.RP 
0 


(SP)+,CR3)+ 
046 


CR4)+, *(R3)+ 
CR4), (R3) 


PC,RESREG 
PC 


sO0PB POINTER TO R2 


sSAVE THE DRIVES REG’S (RHXX= RH11 OR RH70) 


3sSAVE RO-RS 

sQUEVE ENTRY FOR THE DRIVE ? 
;BR IF NONE 

sSELECT ORIVE 

;GET THE ERROR TABLE POINTER 
sEXIT IF NO ADDRESS 

sCOUNTER € POINTER 

sREACHED THE BUFFER REGISTER ? 
3;BR IF NOT 


;BR IF SET 
sSTORE RPDB AS ZEROES 
s CONT INUE 


sREAD THE SELECTED REGISTER 
sREGISTER INDEX 

sERROR RETURN ADDRESS 

sSTORE THE REGISTER CONTENTS 
sREACHED THE END ? 

3;68R IF YES 

s INCREMENT THE REGISTER INDEX 
sCONTINUE READING THE REGISTERS 


4 a # THE UNCORRECTABLE PARITY ERROR 
3IS IT RH70 ? 

3IF EQ, NO 

3GET RPCS1 BASE ADDRESS 

sPOINT TO RPBAE 

sSTORE THE CONTENTS 

;GET RPCS3 


ssRESTORE RO-RS 
sRETURN 


THE INTERRUPT WITHOUT GETTING A “TRE” 


@ORVNUM,R1 
PC,SET.IE 


R4, -(SP) 
RPCS1,R4 
R1,@RPCS2 
C(R4),-CSP) 
oBIT14,(SP) 
(SP) 


@BITO6,CR4) 


et te NUMBER TO R1 
sSET “IE” 


sSAVE R4 

sPICKUP ADR OF RPCS1 

sSELECT ORIVE 

sREAD RPCS1 

sSET THE “TRE” BIT OF THE WORD READ 
a DATO 


ooetia, -ORPCS2 ;IS “NED“=1? 


(SP )+ 
2s 


sYES--CLEAR “TRE” 
sCLEAN OFF THE STACK 


SEQ 6099 


J8 
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RPO? DRIVER 
398 025046 112664 000001 1$: 
399 025052 012604 2s: 


400 025054 000207 


MOVB 
MOV 
RTS 


¢ SP )+,10R4) 
(SP )+,R4 
PC 


sCLEAR ‘-% 
sRESTORE R 
sRETURN 10. CALLER 


SEQ 0100 
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O@Onsouv sufr 


83888888 


025350 


;QUEVE COUNT 
QCNT: BYTE 0 
BYTE 0 
-BYTE 1?) 
.BYTE 0 
BYTE 0 
BYTE re) 
BYTE 0 
BYTE 0 
sQUEVE INPUT POINTERS 
QINPT: .WORD QORVO 
- WORD QORV1 
-WORD QORV2 
-WORD QORV3 
. WORD QDRV4 
. WORD QORVS 
-WORD QORV6 
-WORD QORV7 
sQUEVE OUTPUT POINTERS 
QOUTPT: .WORD QDRVO 
-WORD QORV1 
-WORD QORV2 
WORD QDRV3 
-WORD QORV4 
~ WORD QORVS 
-WORD QORV6 
-WORD QORV7 
QSTART: .WORD QDRVO 
QSTOP: .WORD QDRV1 
~ WORD QDRV2 
-WORD QORV3 
. WORD QORV4 
. WORD QORVS 
.- WORD QDRV6 
-WORD QORV7 
- WORD QTERP 
sORIVE REQUEST QUEUES 
QORVO: .BLKW 10 
QORV1: .BLKW 10 
QORV2: .BLKW 10 
QORVS: .BLKW 10 
QORV4: .BLKW 10 
QORVS: . W 10 
QORV6: .BLKW 10 
QORV7: .BLKW 10 


K8 


H H 

< < 

m m 
NOUS Wr oO NOU SWMrO 


: 
< 
m 
CoO NOU SUNRrO 


sSTOP DRIVE 
sSTOP DRIVE 


sSTOP DRIVE 


START ADDRESS 
STOP ADDRESS E€ DRIVE 1 START ADDRESS 
1--START DRIVE 2 
2--START DRIVE 3 
3--START DRIVE 4 
4--START ORIVE 5S 
S--START DRIVE 6 
o--STany ORIVE 7 


SEQ@ 0101 


CZRJLBO RPO7 FCTNL TEST 
RPO7 DRIVER 


O@BnOUV Swe 


57 025522 


122761 
001421 


L& 
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010750 
025056 


000010 
025126 


000010 
025126 


011002 


025056 
025066 


025106 


025056 


025066 
025130 
025066 


sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


3 
;CALL 
3 JSR PC ,CLRQUE 
CLRQUE: JSR PC, SAVREG sSAVE RO - RS 
MOV #QCNT ,R2 sZERO THE QUEVE COUNTS 
CLR (R2)> sORIVES O El 
CLR CR2)+ sDRIVES 2 € 3 
CLR (R2)+ sORIVES 4 E 5S 
CLR (R2)>+ sDRIVES 6 € 7 
MOV 48. ,R3 sMOVE THE STARTING 
MOV @QSTART,R1 sADDRESS OF THE QUEUE INTO 
1$; MOV CR1)+,CR2)+ sTHE QUEVE INPUT POINTER 
DEC R3 
BNE 1$ 
MOV 8. ,R3 sMOVE THE STARTING ADDRESS 
MOV #QSTART,R1 3O0F THE QUEVE INTO THE 
2s: MOV CR1)+,CR2)+ sQUEVE OUTPUT POINTER 
DEC R3 
BNE 2s 
JSR PC ,RESREG sRESTORE RO - RS 
RTS PC 
sEMPTY THE QUEUE SPECIFIED BY R1 
3 
;CALL 
3 MOV ORVNUM,R1 sDORIVE NUMBER TO R1 
PF JSR PC,EMPTYQ 
EMPTYQ: ag peoercnsd sCLEAR NUMBER OF ITEMS IN QUEUE 
_ a sSET OUTPUT QUEVE POINTER=INPUT POINTER 
RTS PC 
sROUTINE TO PUT A REQUEST IN QUEUE 
;CALL 
3 MOV @DRVNUM,R1 sORIVE NUMBER 
3 MOV @D0PB ,R2 sADDRESS OF PARAMETER BLOCK 
3 JSR R4, ORVQUE :GO PUT REQUEST IN QUEUE 
3 RETURN1 sRETURN HERE IF QUEUE IS FULL 
3 RETURN2 sRETURN HERE IF REQUEST IS IN QUEUE 
ORVQUE: CMPB #10,QCNTC(R1) sIS QUEVE FULL? 
BEQ 2s 3B8R IF YES-TAKE RETURNI 
i «ieee V INCREMENT QUEVE COUNT 
MOV R2,8QINPTC(R1) sPUT THIS REQUEST IN QUEUE 
ADD 2,QINPT(R1) sUPDATE THE QUEVE POINTER 
CMP QINPT(R1), @STOPCR1) sTIME TO RESET THE POINTER 
BNE 1% sBRANCH IF NO 
MOV QSTART(R1), QINPTCR1) 3sYES--RESET POINTER 
1%; ASR R1 
TST CR4)+ sTAKE RETURN 2 


SEQ 0102 


| 


M8 
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025524 


025526 


000204 


025056 


025106 


000002 025106 
025106 025130 


025126 025106 


2s: RTS 


sROUTINE TO GET 


3 
;CALL 
F 


xD 
m 
ie 


GETREQ: 7 
1%; ASL 


2s: RTS 


R4 sRETURN TO USER 
THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 


@ORVNUM ,R1 sORIVE NUMBER TO R1 

PC,GETREQ sGO GET THE REQUEST 
sR2="DPB” ADDRESS OF THE REQUEST 
sR2*0 IF NO REQUEST IN QUEUE 


R2 

QCNT(R1) sIS THERE ANY REQUEST IN QUEUE? 

4 3NO- - -BRANCH 

——— sPICKUP “DPB” POINTER FOR THIS DRIVE 
PC sRETURN TO USER 


sROUTINE TO “POP” THE REQUEST FROM QUEUE 


3 
;CALL 


@ORVNUM,R1 sORIVE NUMBER TO R1 

PC .POPQUE sCALL TO REMOVE REQUEST 
sR2=ADDRESS OF DPB REMOVED 

 - ae sDECREMENT QUEUE COUNT 

erat sGET THE “DPB” POINTER 

@QO0UTPTCR1) sREMOVE OPB ADDRESS FROM THE QUEUE 


@2,QOUTPT(R1) ;UPDATE THE QUEUE POI 
QOUTPT(R1), astop(Ri) sTIME TO RESET THe POINTER? 


i$ 3NO--BRANCH TO EXIT 
QSTARTCRL),QOUTPTCRI) ;YES--RESET THE POINTER 
ae sRETURN TO USER 


SEQ 0103 


N8 
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000167 
000000 


104425 


-SBTTL REPORT CODING SECTION 


3+ 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


ge 

L$RPT:: 
. WORD 
. WORD 
- EVEN 


L10013: 
TRAP 


J$JMP 
L10013-2-. 


CS$RPT 





ei 4 
39 
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i -SBTTL PROTECTION TABLE 

2 zee 

4 s THIS TABLE IS USED BY THE RUNTIME SERVICES 

5 s TO PROTECT THE LOAD MEDIA, 

cS ate 

? 

8 025624 LSPROT:: 

9 025624 000000 .¢) 3P-TABLE OFFSET OF CSR 
10 025626 177777 -1 sNOT A MASSBUS DEVICE 
at 025630 000006 6 3P-TABLE OFFSET DRIVE @ 


9 
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ry 
SOGOU ante 


104433 
012737 


012737 
005037 


012700 
104447 


103432 


012700 
104447 


103002 
000137 


015406 


000001 
002246 


000034 


000036 


026276 
000035 


003064 
000001 


000004 
177777 
177777 


002650 
002650 


000024 
002670 


002650 


002262 
002244 


002650 


002012 


- SBTTL 


INITIALIZE SECTION 


see 
s THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


3 AT THE BEGINNING OF EACH PASS. 


i 
LSINIT:: 


18: 


S$: 


CSRESET 


#ABOPAS ,BYPASS 


#1, ITCNT 
ISRCNT 


EF .PWR,RO 
CSREFG 


as 

@€F .CON,RO 
CSREFG 

1% 

CONTIN 

EF .NEW,RO 
CSREFG 

3% 


OCRLF, -(SP) 
#1,-CSP) 
SP 


@-1,UNIT 
2B aehPe oe 


UNIT 
UNIT, LSUNIT 
ABORT 


sRESET THE WORLD 


SEQ 9106 


sABORT PASS ON DEV FATAL ERROR DETECTED IN ‘ERRABO’, 


sCALLED BY SFTW DRVRS 
sRESET ITERATION COUNT 
sCLEAR INTERRUPT COUNTER 
sPOWER UP SEQUENCE ? 

sGO TO 4% IF YES 


sCONTINUE COMMAND ? 


3GO TO 1% IF NO 


sGO TO ‘CONTIN’ IF YES 
s'STA', ‘RES’ OR ‘NEW PASS’ ? 


sGO TO 3% IF NO, MUST BE NEW ‘SUB-PASS' 


3CR-LF 


sRESET UNIT COUNT 

sRESET CLOCK MESSAGE FLAG 

sCLOCK MESSAGE FLAG GOES HERE 
sGET NEXT UNIT NUMBER FOR TESTING 
sOUT OF UNITS TO TEST ? 

368R IF YES 

sRHXX/RPO7 REGISTER COUNT 

sDATA SINK 

sGET UNIT FROM HARDWARE P-TABLE 


sSAVE RS 
sANO THE BASE ADDRESS 
sDERIVE NEW ADDRESS 


OGG 
sR2 NOT ZERO, CONTINUE LOGGING 
sSEE IF RH70 IS PRESENT 
sIS IT AN RH70 ? 


CZRJLBO RPO7 FCTNL TEST 


INITIALIZE SECTION 


74 
7S 


76 
77 


026246 


010213 


022626 
012537 
012537 
012537 
011537 


D9 
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002660 


002260 
025742 


6$: 


7%: 


9%: 


10%: 


BEQ 
MOV 


R2,(R3) 


(SP)+,(SP)-+ 
CRS)+,RPADR 
CRS)+ ,RPVEC 
C(R5)+,RPVEC+2 
(RS),ORVNO 


PC,RPINIT 
ORVNO,RS 
a 


10% 
DRVTYPCRS) 
8$ 

7% 


RS, -(SP) 
@NOTMSG, -( SP) 
2, -(SP) 

SP ,RO 

CSPNTF 

6 ,SP 


RS, -(SP) 
@UNSMSG, -( SP) 
@2,-(SP) 

SP ,RO 

CSPNTF 

#6,SP 

3$ 


CLKSTA 
EXINIT 
2s 


SEQ 9107 


sBR IF NO 

sGET RPBAE OFFSET 

sADD BASE ADDRESS TO OFFSET 
+e NEW RPBAE 


2 
sSAVE NEW RPCS3 
sRESTORE STACK 
sSAVE RPCS1 BASE ADDRESS 
sSAVE INTERUPT VECTOR ADDRESS 
sSAVE TNTERUPT PRIORITY 
sSETUr DRIVE NUMBER FOR UNIT N 
sINITIALIZE THE an toe 
sPICKUP DRIVE @ AS AN INDEX 


sCHECK DRIVE STATUS: IF NOT AVAILABLE, TRY ANOTHER DRivVE 
sUNSAFE BRANCH 


? 
sNED BRANCH: NON-EXISTENT DRV 
sOFL BRANCH: OFF -LINE 


sEXIT BLOCK 


sEXIT BLOCK 


sEXIT BLOCK 


sORV NOT AVAILABLE: TRY ANOTHER 
sORV IS OK! WHAT CLOCK TYPE? 


3P TYPE, OK! 
sUPDATE, CAN CLOCK MESSAGE BE TYPED ? 


CZRJLBO RPO7 FCTNL TEST 
INITIALIZE SECTION 


+ 026252 001056 
8S 026254 012746 


105 026410 013737 
106 026416 013737 
107 026424 013737 
108 026432 013737 


112 026440 012701 
113 026444 013777 


cy 
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BNE EXINIT 
004317 MOV @NOCLK , -( SP) 
000001 MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
000004 ADD 04, SP 
BR EXINIT 
CONTIN: 
002656 MOV RPVEC +2, -(SP) 
023046 MOV @ISRv, -CSP) 
002654 MOV RPVEC, -(SP) 
000003 MOV @3,-CSP) 
TRAP CsSVEC 
000010 ADD #10,SP 
012000 JSR PC,ST.CLK 
TRAP CSExIT 
-WORD 1L10015-. 
012364 ABORT: JSR PC ,STOPCK 
000040 154332 MOV @CLR,@RPCS2 
002260 TST CLKSTA 
BEQ 2¢ 
BMI 1% 
012230 MOV PKV RO 
TRAP CsCveECc 
BR es 
1$: 
012240 MOV LKV,RO 
- TRAP CsCveEc 
002654 MOV RPVEC RO 


;BR IF NO 


sPRINT ‘NO P-CLOCK, TIMING TESTS WILL NOT BE EXECUTED’ 


;SKIP NEXT INTERMEDIATE BRANCHING 
sSETUP RHXX/RPO7 VECTOR 


‘ 
sSTART CLOCK 


;STOP THE CLOCK 

sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 
sRELEASE APPROPRIATE CLOCK VECTOR 

sNO CLOCK, SKIP 

3L-CLK 


3 SKIP 


sSTUFF DRIVE NUMBER IN DPB TABLES 


34 DIGITS 
sSELECT ORIVE 


002664 002550 EXINIT: MOV ORVNO,OPB.A 
002664 002570 MOV ORVNO,OPB.B 
002664 002610 MOV ORVNO,DPB.C 
002664 002630 MOV ORVNO ,OTADPB 
sPRINT DRIVE SERIAL NUMBER 
000004 MOV @4,R1 
002664 154226 MOV ORVNO, BRPCS2 
002664 MOV DORVNO, -C SP) 
004403 MOV @OSNMSG, -( SP) 
000002 MOV #2, -CSP) 
MOV P,RO 


ADD 6 , SP 
154216 MOV QRPSN, -( SP) 
3%; CLR Re 


ROL (SP) 
ROL R2 


sFETCH S/N 
3ZERO OUTPUT 
sPUT NEXT DIGIT INTO Re 


De. 
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INITIALIZE SECTION 


012737 


104432 
000002 


104411 


026334 


002262 
002551 
002552 


002262 


L10015: 


@ORVSN, -(SP) 
@SNDIGT, -(SP) 


CSP )-« 
#1, -(SP) 
SP ,RO 
CSPNTF 
04,SP 

PC ,LOCMD 


@ABORT ,BYPASS 
#20,DPB.A+1 


@SETFORM,DPB.A+2 


R4,CALL.A 
@ABOPAS ,BYPASS 


CsExIT 
L10015-. 


CSINIT 


sMAKE RESULT ASCII 
sSAVE R2 FOR PRINT 


sCOUNT DOWN DIGIT 
sNEXT DIGIT 
sRESTORE STACK 
3;CR-LF 


sLOAD COMMAND IN OPB.B, DPB.C FOR SEEK TESTS 
;BYPASS ROUTE ON RP DRIVER FATAL ERROR 
sSET 16 BIT FORMAT 
sSET FORMAT MODE (16 BIT) 
:GO EXECUTE THE COMMAND 
sRESTORE ABORT ADDRESS FOR ‘ERRABO’ DEV FATAL ERROR 


SEQ 9109 


G9 
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AUTODROP SECTION 


i -SBTTL AUTODROP SECTION 


2 
z ee 
4 s THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
5 3 THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
6 ; SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
‘ ; DROPPED FROM TESTING. 
ae 
9 
10 026654 LSAUTO:: 
17 026654 L10016: 


026654 104461 TRAP CsAUTO 


SEQ 6110 


CZRJILBO 
CLEANUP 


OOD Vi Swe 


10 


RPO7 FCTNL TEST 


CODING SECTION 


H9 
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-SBTTL CLEANUP CODING SECTION 


3¢e 

s THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 

; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
eo ' 


LSCLEAN: : 
;SET PRIORITY TO 7 


000340 MOV @PRIO7,RO 
TRAP CSSPRI 
000040 154006 MOV CLR, @RPCS2 sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 
002664 154000 MOV DRVNO, @RPCS2 sGET ORIVE NUMBER 
012364 JSR PC, STOPCK 3STOP THE CLOCK | 
002260 TST CLKSTA s;RELEASE APPROPRIATE CLOCK VECTOR 
BEQ es sNO CLOCK, SKIP 
BMI 1s 3L-CLK 
3P-CLK VECTOR RELEASE 
012230 MOV PKV,RO 
TRAP CsCVvEC 
BR 2s 
ie 3L-CLK VECTOR RELEASE 
012240 MOV LKV,RO 
TRAP CsCVEC 
2s: ;RPO7 VECTOR RELEASE 
002654 MOV RPVEC,RO 


TRAP CsCVvEC 
TRAP CsExIT 
-WORD 1L10017-. 


L10017: 
TRAP CSCLEAN 


nn ne 
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DROP UNIT SECTION 


NOU Swtor 


8 026746 
17 


18 026746 
026750 

19 

31 

32 

33 026752 
026752 


000167 
000000 


104453 


-SBTTL OROP UNIT SECTION 


zee 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; TO NO LONGER BE TESTED. 


L$DU:: 
. WORD 
. WORD 
-EVEN 
L10020: 
TRAP 


J$JMP 
L10020-2-. 


Cs0u 


19 


SEQ 0112 


CZRJLBO RPO7 FCTNL TEST MACRO V04.00 


ADD UNIT SECTION 


BOVIS whe 


9 026754 
18 


19 026754 
026756 


34 026760 
026760 


000167 
000000 


104452 


JI 


1-DEC-83 12:59:38 PAGE 48 


-SBTTL ADD UNIT SECTION 


see 

; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
s+ TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
s TO THE TEST CYCLE. 

oe 


L$AU:: 
. WORD J$JMP 
-WORD L10021-2-. 
-EVEN 

10021: 
TRAP CsAU 


SEQ 0113 


K9 / 
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HARDWARE TESTS 


-SBTTL HARDWARE TESTS 


;*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
3#AND THEIR DEFAULT VALUES CUNLESS SPECIFIED OTHERWISE) ARE: 


3% 

3 *MNEMONIC VALUE VARIABLE 
ll 

3* 

3*#ITCNT 1 ITERATIONS 

34FC i?) FIRST CYLINDER ADDRESS 
3#LC 629 LAST CYLINDER ADDRESS 
3*#IC 1 INCREMENT VALUE 

3#NC OF NC1 FC+IC NEW OR MODIFIED CYLINDER 
3* ADDRRESS 

3#NC2 LC-ICc NEW OR MODIFIED CYLINDER 
3* ADDRESS 

3* 

;4FT i?) FIRST TRACK ADDRESS 

3*LT an. LAST TRACK ADDRESS 

3*IT | INCREMENT VALUE 

3@NT FT+¢IT NEW OR MODIFIED TRACK ADDRESS 
3 

34FS 0 FIRST SECTOR ADDRESS 
34*LS 49. LAST SECTOR ADDRESS 


-SBTTL SEEK TESTS 


s*THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 
s*IMPLIED SEEKS ~ BE PERFORMED BY “READ HEADER AND 

s*DATA” COMMANDOS TO TRACK “FT” SECTOR “FS” OF THE DESIRED CYLINDER. 
3#THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND 
s*TRACK/SECTOR WORDS OF THE HEADER ARE READ. 

;*HOWEVER, THESE IMPLIED SEEKS CAN BE SUPERSEDED BY EXPLICIT SEEKS 


3#VIA OPERATOR DIALOGUE, IN WHICH CASE HEADER INFORMATION IS NOT VERIFIED. 


SEQ 0114 


CZRJILBO 
TEST 1: 


LOY 
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RECALIBRATE TEST 


026762 012737 
026770 112737 


000012 002244 
000107 002552 
002600 
002602 
014374 


014512 
002244 


-SBTTL TEST 1: RECALIBRATE: TEST 


FE ARESARAERERAAEEEERRERESREEEAEESEAEAREEEAEREREEEEEEEAEAAAEREEEEAEREEEEEEEEEEEEEE 


5% THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
3* COMMAND CYCLE AND THEN DO A READ HEADER AND DATA COMMAND 
3* TO VERIFY POSITION. 
5 PERERA RERAREREEEREEAAEEREREREEAEERAEEREREREREREAEAREEEAEEEEREEEEREREEEEREEDE 
Ti:: 
vests MOV #10.,ITCNT 3SET ITERATION COUNT 
MOVB @RECAL,DPB.A+2 ;RECAL=COMMAND 
CLR OPB.B+10 ;SEC/TRK O 
"1.1 CLR DPB .B+12 sCYL O 
TRAP Cs6SUB 
JSR R4,CALL.A ;GO EXECUTE THE COMMAND 
JSR R4,CALL.B :GO EXECUTE THE COMMAND 
DEC ITCNT ;DONE ITERATIONS ? 
BNE TEST1 ;8R IF NO 
EXIT1: 
L10023: 
TRAP CsESUB 
L10022: 


TRAP CsETST 


SEQ 0115 


| 


CZRJLBO 
TEST 2: 


OBNKOUWS whe 


M9 
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INCREMENT SEEK TEST 


113737 
113737 
013737 


013737 


104402 
004437 


104403 
163737 
023737 
003765 


104401 


002220 
002212 
002204 


014512 
002210 
002206 
002206 


014512 


002210 
002204 


002600 
002601 
002602 


002602 
002602 


002602 


002602 
002602 


-SBTTL TEST 2: 


ENSURE PROPER OPERATION. 


INCREMENT SEEK TEST 


i EPA#RREEEAEREREEEEERERERAEEEEEEEEEEREAEEAEEEEEEEEEAEEEEEEREREEEEEEEAES EAE EEREES 
THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 

CYLINDER ADDRESS FROM "FC" TO “LC” BY THE INCREMENT “IC”. 

WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

"LC" REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL “NC” AND DECREMENTING BY “IC” 

UNTIL “NC” IS LESS THAN “FC”, AT THE COMPLETION OF EACH 

SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 


5S PEAAAEEEAEASEEAERERESEREEEEEEEEEEEEREREEEREEEEEAREEEREEEREEASEEAEEEEEEEEEEEEEE 


T2:: 
18: 


T2.11: 
T2.1: 


L10025: 


T2.21: 
T2.2: 


L10026: 


ExITe: 
L10024; 


FS,0PB.B+10 
FT,OPB.B+11 
FC,OPB.B+12 


C$BSUB 
R4,CALL.B 


T2.11 
LC,0PB.B+12 


C#B8SUB 
R4,CALL.B 


CsESUB 
IC,0P6.8+12 
FC,OPB.B+12 
T2.21 


CSsETST 


3GO EXECUTE THE COMMAND 


sMOVE TO NEXT CYLINDER 
;OUT OF CYLINDERS? 
3NO- -BRANCH 


sGO EXECUTE THE COMMAND 


SEQ 0116 


CZRJLBO 
TEST 3: 


OBANOUS whe 


N9 
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RANDOM SEEK TEST 


027170 


027272 


012737 


013737 
104402 
004437 


011712 
011774 


002206 


002204 
011176 
002602 
002602 
014374 


002550 
153420 


153414 


-SBTTL TEST 3: RANDOM SEEK TEST 


5 PPEAAREAEEEERERESEEESEEEEEEAEEEAEESAEEREEEEEEEEEEASEEEEREEEEEEEEEREREEAAADERAE 


T3:: 


TESTS: 


T3.1: 
73.11: 


L10030: 


T3.2: 


THIS TE 
"LC’, 


ST PERFORMS RANDOM 


AND ' 


THE — CYLINDER IS GENERATED “ USING THE ‘MOD’ FUNCTION: 
X MOD Y = X - (X DIV Y) « 
IF X,Y = INTEGERS WITH Y <> O THEN: 
X MOD Y = REMAINDER OF X DIV Y 
THE ACTUAL OPERATION PERFORMED IS: 
FC + $RP1 MOD (LC+1)-FC 


BY DOING: 


WHERE R 


CYL = FC +R 
15 OBTAINED BY 


RP1 DIV (LC+1)- FC =Q@+R 
WHERE +: = QUOTIENT, R 


j | POARAADAEREERASRESAESEDSARSEESAEDEADADDSEDDEEASEEEEDEEERDDARDARDREREESEEEREES 


#10. ,ITCNT 


bd REMAINDER, $RP1 = A RANDOM NUMBER FROM RAND CALL. 


sSET ITERATION COUNT 
sLOAD STARTING TRACK ADDRESS 


3SEEK= 

sINITIAL CYLINDER ADDRESS 
sCYLINDER LIMITS THE SAME ? . 
368R IF THEY ARE 


sGENERATE A RANDOM CYLINDER 


RANDOM CYL GEN. 
DPB .B+12,0PB.A+12 


CsB8SUB 
R4,CALL.A 
CsEsuB 


C$6SUB 

DPB .A,@RPCS2 
SRPLA, -( SP) 
(SP) 

(SP) 


sCYCLE THE RANDOM NUMBER GENERATOR 
sUSE THE HIGH RANDOM NUMBER 

sUPPER DIVIDEND 

sFORM THE Dies 

s INCREMENT 

sSUBTRACT THE LOWER LIMIT 

sDIVIDE 

sADD THE REMAINDER TO THE INITIAL CYLINDER 
sOISCARD THE QUOTENT 


sCOPY NEW CYLINDER ADDRESS 


sGO EXECUTE THE COMMAND 


sSELECT THE DRIVE 

sGET THE LOOK AHEAD REGISTER 
sALIGN THE SECTOR ADDRESS 
sALIGN THE SECTOR ADDRESS 


SEQ 0117 


CZRJILBO 
TES’? 8: 
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RANDOM SEEK TEST 


027274 000316 SWAB (SP) 

027276 112637 002600 MOVB (SP )+,0P68.B8+10 
027302 013746 002274 MOV NS1, -(SP) 
027306 122637 002600 CMPB (SP)+,DPB.B8+10 
027312 103007 BHIS 2s 

027314 103403 BLO 1$ 

027316 105037 002600 CLRB OPB.B+10 
027322 000403 BR es 

027324 112737 000001 002600 15: MOVB #1,0P8.B+10 
027332 2s: 

027332 004437 014512 JSR R4,CALL.B 
027336 L10031: 

027336 104403 TRAP CsESUB 
027340 105237 002601 INCB DPB .B+11 
027344 123737 002601 002214 CMPB OPB.B+11,LT 
027352 101703 BLOS TESTS 
027354 113737 002212 002601 MOVB FT,OPB.B+11 
027362 005337 002244 EXITS: DEC ITCNT 
027366 001275 BNE TESTS 
027370 L10027: 

027370 104401 TRAP CseTstT 


SEQ 0118 


sPUT ADORESS IN LOWER BYTE 
sLOAD THE DPB 

sPUT LAST SECTOR ADDRESS ON THE STACK 
sNEW SECTOR ADDRESS TOO LARGE ? 

sBR IF NOT 

sBR IF ADDRESS IS 2 GREATER 

sRESET TO SECTOR ADDRESS 0 

s CONTINUE 

sRESET ADDRESS TO SECTOR 1 


sGO EXECUTE THE COMMAND 


s INCREMENT THE TRACK ADDRESS 
sMAXIMUM ? 

;BR IF NOT 

sRELOAD STARTING TRACK ADDRESS 
sOONE ITERATIONS ? 

;BR IF NO 


CZRILBO 
TEST 4; 


ODO US tnftur 
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RECAL, RANDOM SEEK TEST 


027372 
027372 
027400 
027406 
027414 


012737 
113737 
112737 
013737 


000012 
002212 
900107 
002204 


011712 
011774 


002206 


002204 
011176 
002602 


014374 


002550 
153204 


002600 
002274 
002600 


002244 
002601 
002552 
002602 


153200 


. SBTTL 


C10 


TEST 4; RECAL, RANDOM SEEK TEST 


5 EPPORSEHEEEAEAOEEAEEEEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEAEHEEESEREEEEEEEEEDEEEEEES 


THIS TEST EXECUTES A RECAL COMMAND, THEN A SEEK IMPLIED IN A READ HEADER 
AND DATA COMMAND, TO A RANDOMLY SELECTED CYLINDER. 
THIS SEQUENCE IS REPEATED 10 TIMES. 
THE TRACK AD OF THE RANDOMLY SELECTED CYLINDER IS INCREMENTED BY ONE, 
STARING FROM FC, AT EACH TEST ITERATION. 
THE a CYLINDER IS GENERATED BY USING THE ‘MOD’ FUNCTION: 
xX MOD Y = X - (X DIV Y) « Y 
IF x,Y “* INTEGERS WITH Y <> O THEN: 
X MOD Y = REMAINDER OF x DIV Y 
THE ACTUAL OPERATION PERFORMED IS: 
FC + $RP1L MOD (LC+1)-FC 
BY DOING: 
Cyl. = FC +R 
WHERE R IS OBTAINED BY: 
$RP1 DIV (LC+1)-FC = Qo 
WHERE Q@ = QUOTIENT, R = REMAINDER, $RP1 = A RANDOM NUMBER FROM RAND CALL. 


j SPORES SEESEEESEAAEEEEEEDEAREREEREDEDEEREDDREDEEE SEEDED DDERESSEOSESEASEEES 


T4:: 


TEST4; 


T4.1: 


L10033: 


74.2: 


18%: 


MOV #10. ,ITCNT sSET ITERATION COUNT 

MOVB FT,OPB.B+11 sLOAD STARTING TRACK ADDRESS 

MOVB @RECAL.DPB.A+2 ;RECAL =COMMAND 

MOV FC,0PB.B+12 sINITIAL CYLINDER ADDRESS 
sGENERATE A RANDOM CYLINDER 

JSR PC ,RAND sCYCLE THE RANDOM NUMBER aren 
MOV $RP1, -CSP) sUSE THE HIGH RANDOM NUMBER 

CLR -(SP) sUPPER DIVIDEND 

MOV LC, -(SP) sFORM Ls. J Mca 

INC (SP) s INCREME 

SUB FC,(SP) SUBTRACT. THE LOWER LIMIT 

JSR PC, $0Iv sOIVIDE 

ADD (SP)+,0P8.8+12 ;ADD THE REMAINDER xe THE INITIAL CYLINDER 
TsT (SP )+ sDISCARO THE QUOTENT 


TRAP Cs8SU8 
JSR R4,CALL.A sGO EXECUTE THE COMMAND 


TRAP CsESUB 


MOVB DPB .A,@RPCS2 sSELECT THE ORIVE 
MOV @RPLA, -( SP) sGET THE LOOK AHEAD REGISTER 


ASL (SP) sALIGN THE SECTOR ADDRESS 

ASL (SP) sALIGN THE SECTOR ADORESS 

SWAB (SP) sPUT ADDRESS IN LOWER BYTE 

MOvB (SP)+,0PB.B+10 ;LOAD THE DPB 

MOV NS1,-CSP) sPUT LAST SECTOR ADORESS ON THE STACK 
CMPB (SP)+,0PB.B+10 ,NEW SECTOR ADDRESS TOO LARGE ? 

BHIS 3% sB8R IF NOT 

BLO es s8R IF ADDRESS IS 2 GREATER 


SEQ 9119 


CZRILBO 
TEST 4: 


D1O 
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RECAL, RANDOM SEEK TEST 


027532 
027536 


027540 
027546 
027546 
027552 
027552 
027554 
027560 
027566 
027570 
027576 
027602 
027604 
027604 


105037 
000403 


112737 
004437 


002600 


000001 
014512 
002601 
002601 


002212 
002244 


002600 


002214 
002601 


2s; 
3$; 


L10034: 


ExIT4; 
L10032: 


CLRB 
BR 


MOVB 


DPB .B+10 
3$ 


#1,0PB.6+10 
R4,CALL.B 


CsETST 


sRESET TO SECTOR ADDRESS O 
s CONT INUE 


sRESET ADDRESS TO SECTOR 1 
sGO EXECUTE THE COMMAND 


s INCREMENT THE TRACK ADDRESS 
sMAXIMUM ? 

3;B8R IF NOT 

sRELOAD STARTING TRACK ADDRESS 
;DONE ITERATIONS ? 

;BR IF NO 


SEQ 9120 


CZRJILBO 
TEST 5: 


OBO UV Stator 


10 


E10 
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DIFFERENTIAL SEEK TEST 


027662 
027666 
027666 
027670 
027674 
027700 
027706 


027710 
027714 
027722 
027722 
027724 
027724 
027730 
027730 
027732 
027732 
027734 
027740 
027740 


113737 
113737 
113737 
113737 


005037 
012737 


104402 
004437 
104403 


005037 
012737 


104402 
004437 
104403 


104402 
004437 


104403 


002220 
002212 
002222 
002214 


002602 
000005 


014512 


014512 


014674 


002622 


002622 


002622 


-SBTTL TEST S: DIFFERENTIAL SEEK TEST 


FF PASAAAAHEHAEEAEHESAESEEESERESEEEEEREAEEAEEEAEEEAESEEEEEEEEEEEEEEEEEAEEEAEEEEEESD 


34 THIS TEST CONSISTS OF 3 SUBTESTS TO TEST THE HEAD POSITIONER AND SERVO 
34 SYSTEM RESPONSE TO 3 UNIQUE DIFFERENTIAL SEEK PROFILES: 
3* 1. 6 Cyl OIF SEEK: FORCES A SLEW RATE CHANGE BY SEEKING FROM CYL O TO 5S, 
34 2707, ... 624 TO 629, TO TEST THE POSITIONAL LOGIC. 
34 
3* 2. 33 Cyt DIF SEEK: WORST CASE SEEK OVERSHOOT TEST, FORCED BY SEEKING 
34 FROM CYL O TO 32, 1 TO 33, 2 TO 34, ... 597 TO 629. 
3% 
3* 3. 400 CYL DIF SEEK: FORCES MAX ACCELERATION AND DECELERATION OF CARRIAGE 
3% ASSEMBLY, FORCED BY SEEKING FROM CYL O TO 399, 1 TO 400, 2 TO 401, ... 
3* 230 TO 629 
2S PFSSSSASASEAHASEAESSEHALEESESLESEEEEAEEEREHEEEEELESRESEEEEEASEEEEEESEEESEEEEEEEEE 
TS:: 
MOVB FS,0PB.B8+10 sFIRST SEEK OF THE PAIR OF SEEKS READS FS, FT 
MOVB FT,OPB.B+11 
MOVB LS.OPB.C+10 ;SECONOD SEEK OF THE PAIR OF SEEKS READS LS, LT 


MOVB LT,OPB.C+11 
36 CYL DIFF SEEK 


TESTS: CLR OPB.B+12 sFIRST SEEK STARTS AT O 
75.2 MOV #5.0P6.C+12 ;SECOND SEEK IS TO FIRST CYL + 5 
TRAP CsBSuUB 
TS5.11: 
JSR R4,CALL.B 3;GO EXECUTE THE COMMAND 
L10036: 
TRAP CseEsus 
75.2: 
TRAP Cs$8SUB8 
JSR R4,CALL.C 3GO EXECUTE THE COMMAND 
10037: 
TRAP CsESuB 
INC OPB .B+12 sNEXT CYL OF FIRST SEEK 
INC OPB.C+12 sNEXT CYL OF SECOND SEEK 
CMP NC1,0PB.C+12 sREACHED LAST USER CYL ON SECOND(LAST?) SEEK? 
BGE To. 2h sNOT YET, REPEAT ABOVE SEQ UNTIL OUT OF CYL 
333 CYL DIFF SEEK 
CLR OPB.B+12 sFIRST SEEK STARTS AT O 
3 MOV 432.,0PB.C+12 sSECOND SEEK IS TO FIRST CYL « 32. 
TRAP cs6SuB8 
5.31: 
JSR R4,CALL.B 3GO EXECUTE THE COMMAND 
L10040: 
TRAP CsEsus 
75.4: 
TRAP CsBSuUB 
JSR R4,CALL.C 3GO EXECUTE THE COMMAND 
L10041; 


TRAP CsESUB 


SEQ 0121 


CZRJLBO 
TEST S: 


F 
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OIFFERENTIAL SEEK TEST 


027742 
027746 
027752 
027760 


005237 
005237 
023737 
002361 


005037 
012737 


104402 
004437 
104403 


104402 
004437 


104403 
005237 
005237 
023737 
002361 


104401 


002602 
002622 
002266 002622 


002602 
000617 002622 


014512 


014674 


002602 
002622 
002266 002622 


TS.5: 
TS.51: 
L10042: 
TS.6: 


L10043;: 


EXITS: 
L10035: 


10 


sNEXT CYL OF FIRST SEEK 

sNEXT CYL OF SECOND SEEK 

sREACHED LAST USER CYL ON SECOND(LAST?) SEEK? 
sNOT YET, REPEAT ABOVE SEQ UNTIL OUT OF CYL 


sFIRST SEEK STARTS AT O 


0399.,D0PB8.C+12 ;SECOND SEEK IS TO FIRST CYL + 399. 


INC OPB.B+12 

INC DPB.C+12 

CMP NC1,0PB.C+12 
BGE 5.31 

:400 CYL DIFF SEEK 
CLR OPB.B+12 

MOV 

TRAP CsB8SUB 

JSR R4,CALL.B 
TRAP CsESUB 

TRAP C$BSUB 

JSR R4,CALL.C 
TRAP CsESUB 

INC OPB.B+12 

INC OPB.C+12 

CMP NC1,0PB.C+12 
BGE S1 

TRAP CSETST 


sGO EXECUTE THE COMMAND 


3GO EXECUTE THE COMMAND 


sNEXT CYL OF FIRST SEEK 

sNEXT CYL OF SECOND SEEK 

sREACHED LAST USER CYL ON SECOND(LAST?) SEEK? 
sNOT YET, REPEAT ABOVE SEQ UNTIL OUT OF CYL 


SEQ 0122 


CZRJLBO 
TEST 6: 


OOBnOUVS whe 


G10 
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OSCILLATING SEEK TEST 


030142 


113737 
113737 
113737 
113737 
013737 
013737 


104402 
004437 
104403 


104402 
004437 


104403 
005237 
005337 
023737 
002361 


104401 


014512 


014674 


002602 
002622 
002622 


002204 


-SBTTL TEST 6: OSCILLATING SEEK TEST 


FF PSeAEAEHSASEEASEEEARAREAEEAEEEREEEEEREEAERELEEEEEEEHEAEAEBEREAEEEEEEEEEAEEE REED 


34 THIS TEST PERFORMS A SERIES OF SEEK OPERATIONS TO CAUSE AN OSCILLATING 
:* MOVEMENT OF THE HEAD POSITIONER. 
FL ORROEEAEEAEAEEEEAEEAEEEEREEEEEEEREAEEEAAERERERREEEREERERERAEEEREEEEEREREEEERE 
T6:: 

MOVB FS,OPB.B+10 3FS 

MOVB FT,OPB.B+11 3FT 

MOVB LS,O0P8.C+10 3LS 

MOVB LT,OPB.C+11 3LT 
TEST6: MOV FC,0PB.6+12 sFC 

MOV LC,0PB6.C+12 3LC 
T6.1: 

TRAP C$BSUB 
T6.11: 

JSR R4,CALL.B 3GO EXECUTE THE COMMAND 
L10045;: 

TRAP CsESUB 
T6.2: 

TRAP CsB8SUB8 

JSR R4,CALL.C 3GO EXECUTE THE COMMAND 
L10046: 

TRAP CsESUB 

INC OPB.B+12 

DEC OPB.C+12 

CMP OPB.C+12,FC sUNTIL 

BGE T6.11 
EXIT6: 
L10044; 


TRAP CsETST 


SEQ 0123 


| 


H1O 
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TIMING TESTS 


ODOBnOU whe 


002260 


015612 
031172 


152430 


-SBTTL TIMING TESTS 

bE SPOAESESEEEEEEAEREEEEEEEREREREEEEEEEEEAEEEEEEEAEAEEEEEEEREEREEDEEREEREOEEEEES 
s#THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 

s*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE “RPO7 

s*ENGINEERING SPECIFICATIONS”. 

s#THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 

s*OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING 

s*TESTS THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 

s*TYPED, IF TIMTYP=1, 


-SBTTL TEST 7: ROTATIONAL SPEED TIMING TEST 


iE PPROSEESEESEEEAEOEEEEEERESEEEEEEEEEEEREREEEEEEAEEEREEEREREEEREEEEEEREREEEEEES 
34 THIS TEST WILL START A SEARCH TO CYLINDER FC, TRACK FT, SECTOR 


34 FS. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN 
7) AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 

3¢ TIMES THEN THE AVERAGE TIME IS CALCULATED AND CHECKED TO 

34 ENSURE IT IS WITHIN TOLERANCE: 

i+ 16.515 MS/REV + OR - 3 


5s SRRAAAASOEEEAEREEASEEEEEESEEEEEEEEEEEALEREEESEEHEEEEEELERESEEREDEEEREEEEEREDES 


T7:: 


TST CLKSTA 3KW11-P CLOCK? 
BGT 1$ ;YES--START TEST 
TRAP CSExIT 
-WORD 1L10047-. 
1%: JSR R4,SRCHOO s00 A MASSBUS INIT E RECAL 
BR 2s sRETURN HERE IF NO ERROR 
JMP EXIT7 sRETURN HERE IF ERROR 
2s: CLR RS sCOUNT UP 
MOV @T7A,R3 s TIMING LIMITS 
TEST7: MOV #10.,R1 sTIME 10 SEARCHES 
JSR PC,STRTMR sINITIALIZE THE TIMERS 
JSR PC, STOPCK sSTOP THE CLOCK 
sSETUP VECTOR IN CASE OF CLOCK OVERFLOW 
MOV @PRIO6, -( SP) 
MOV @T7.7%,-CSP) 
MOV PKV, -CSP) 
TRAP CsSvEC 
ADD #10,SP 
sSETUP RHXX/RPO7 VECTOR 
MOV @OORTI,-( SP) 
MOV RPVEC, -(SP) 
MOV 3,-C 
TRAP CsSvEC 
ADD #10,SP 
MOV FC, @RPOC sFC 
MOV FS,-C(SP) sFS 
MOVB FT,1¢SP) 3FT 
1.4 MOV (SP )+,@RPDA sLOAD FT/FS 
TRAP CsBSUB 
77.16: CLR aPKB sSTART COUNTING AT ZERO 


SEQ 6124 


CZRJLBO 
TEST 7: 


61 


74 


75 
76 


77 


L10 
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ROTATIONAL SPEED TIMING 


012777 
012777 


012777 


161400 


TEST 

161674 
152334 
161652 
152320 


152272 
152264 


002264 


002350 
152150 


152152 


152140 
152132 


L10050: 


77.108: 


77.448: 
1%: 


77.208: 


ADD 

BR 
77.2: 

TRAP 
T7.2¢: CLR 


#131,@PKCS 
#SEARCH, @RPCS1 


PKC, -C SP) 
#101,@PKCS 
(SP )+,@PKB 
#B1IT14,8RPDS 
17.28 

PC, SAVREG 
@DTADPB ,R2 
PC , SVRHXX 
CLR, @RPCS2 
DTADPB , @RPCS2 
PC,,RESREG 
RS, ERRANY 


CsESUB 

17 
@SEAERR , -( SP) 
41, -(SP) 
SP,RO 

CSPNTF 


@4,SP 
#ABOTST, -(SP) 
#1, -(SP) 

SP 


#16. ,WCEFLG 
@SEARCH, @RPCS1 


081T14,8RPDS 
17.28 


@CLR,@RPCS2 
DTADPB , BRPCS2 
WCEFLG 


@SEABAD, -( SP) 
SP) 


@4,SP 
@ABOTST, -CSP) 
#1,-C(SP) 

SPR 


2RO 
CSPNTF 
@4,SP 
17.8% 


Cs#8SUB 
aPKB 


@BIT3!BIT7,SVSTA 
443 


sINT.EN., COUNT UP AT 100KHZ 
sSTART A SEARCH 

sWAIT ON INTERRUPT 

sSAVE THE CLOCK 

sSTOP THE CLOCK 

sAND RESTORE THE COUNTED VALUE 
sERROR? 

3NO- -BRANCH 

33SAVE RO-RS 

;0PB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

;SELECT ORIVE 

3: RESTORE RO-RS 


sFIND OUT WHAT ERROR 


T sRETRY ALLOWED ? 


s;BRANCH IS SO 


sRETRY 16 TIMES 
sWAIT FOR INTERRUPT 
ERROR ? 


sOVER RETRY LIMIT ? 
sBRANCH IF NOT 


sEXIT 


sSTART THE COUNT AT ZERO 


SEQ 0125 


CZRJLBO 


TEST 


7: 


112 


113 
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ROTATIONAL SPEED TIMING 


031012 
031014 


031016 


031144 


012777 
012777 
000001 


012777 
013777 


000131 
000131 


161360 


000040 
002630 


TEST 

152036 
161362 
161346 
152014 


151766 
151760 


002264 


002350 
151710 


151712 


151700 
151672 


151612 
151604 


151534 
151526 


L10051: 


1$: 


17.38: 


17.78: 


77.88: 


@SEARCH, ARPCS1 
#131,@PKCS 


aPKC, -(SP) 
#101, @PKCS 
(SP)+,@PKB 
oB1T14, @RPOS 
17.38 

PC, SAVREG 
@DTADPB, R2 
PC, SVRHXX 
CLR, @RPCS2 
DTADPB , ARPCS2 
PC,RESREG 
RS,ERRANY 


CsESUB 
17 
#16. ,WCEFLG 
@SEARCH, @RPCS1 
tS ae » RPDS 
CLR, @RPCS2 
OTADPB , BRPCS2 
WCEFLG 

1% 

T7.208 

PC ,.COUNT 

R1 


17.8% 
17.18 


PC .FORSEC 


7(R2), TRK.RD 
PC ,RESREG 
CSERHRD 

20 

EM20 

OH44 


@CLR,@RPCS2 
DTADPB , ARPCS2 


oe »SVSTAT 


sSTART A SEARCH 

;START THE CLOCK 

sWAIT ON INTERRUPT 

sSAVE THE CLOCK 

sSTOP THE CLOCK 

sAND RESTORE THE COUNTED VALUE 
sIS “ERR=1"? 

3NO- -BRANCH 

3sSAVE RO-RS 

sO0PB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT ORIVE 

s sRESTORE RO-RS 

sFIND OUT WHAT ERROR 


sRETRY ALLOWED ? 
sBRANCH IF NOT, ABORT TEST 
;RETRY 16 TIMES 
sSTART TO SEARCH 


sANY ERROR 

sBRANCH IF NONE 

sMASS BUS CLEAR 

sLOAD THE DRIVE ADDRESS 
sDECREMENT THE RETRY COUNT 
_— IF NOT OVER THE LIMIT 
iG 


sUPDATE THE COUNT 
DONE 


3 ? 
;YES--GO TO THE EXIT 
sNO, L 


sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 
sDROP THE PRIORITY 


ssSAVE RO-RS 

sDPB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT DRIVE 

sADDRESS OF SAVED REGISTER TABLE 
sGET CURRENT CYLINDER 

sGET CURRENT SECTOR 

sGET CURRENT TRACK 

ssRESTORE RO-RS 


sCLEAR THE MASSBUS 
s€ SELECT ORIVE 


SEQ 0126 


CZRJLBO 


TEST 


7: 


120 
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ROTATIONAL SPEED TIMING TEST 


031152 
031156 
031162 
031164 
031170 
031172 
031172 
031176 
031202 
031206 
031212 
031214 
031220 
031220 


004737 
004437 
002442 
004437 
002512 


013746 
012746 
013746 
012746 
104437 
062706 


104401 


012000 
016504 


016354 


EXIT?: 


L10047: 


PC,ST.CLK sINITIALIZE THE CLOCK 
R4,TYPTIM 3GO TYPE THE TIMES 

sPOINTER 
R4,SPTYP sTYPE THE SPECIFICATION VALUE 


;SETUP RHXX/RPO7 VECTOR 
RPVEC+2, -(SP) 
@ISRV,-CSP) 
RPVEC, -(SP) 
03, -(SP) 
C$SVEC 
#10,SP 


CsETST 


a 


SEQ 0127 


ee 


CZRJLBO 
TEST 8: 


ODBNIDVS whe 


Lio 
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ONE CYLINDER SEEK TIMING TEST 
. SBTTL 


TEST 8: ONE CYLINDER SEEK TIMING TEST 


5 FE PSEERERAEEEEAEEAEEAEEEEEEEEEESESELEREEEAEREDREREEEEEEEAEEEEEEEEAEEEEEEEEAE REESE 


3* 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER BY ONE FROM FC UNTIL THE INCREMENT IS GREATER THAN THE 
CYLINDER ‘LC’, THEN REVERSE SEEK TO CYLINDER ‘FC’. DO IT TwICE. 
THE TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 

THE TIME MUST BE LESS THAN 4MS. 


5 EPRSARHAEAEREEEEEEEEEEEEEAELERESEERESEREAEADAEEEEERASEEEEEEEEEEEEEEEEERE SEEKERS 


031222 T8:: 


015612 1%: 


es: 
TESTS: 
002642 


002632 
T8.1: 
L10053: 
T8.5$: 
031312 
031316 


031322 


012364 


031372 


031376 
031402 
031410 
031412 
031412 
031414 005077 


78.18: 
002206 


78.2: 


TST CLKSTA 3KW11-P CLOCK? 
BGT 1$ ;YES--START TEST 
TRAP CSEXxIT 
‘ L10052-. 
JSR R4,SRCHOO 300 A MASSBUS INIT. AND RECAL 
BR 2s sNO ERROR RETURN 
TRAP CSEXIT 
-WORD 1L10052-. 
MOV @TIMT10,R3 sPARAMETER POINTER 
CLR DOTWO sSET-UP FOR TWO ITERATIONS 
MOV FC,DTADPB+12 sSTART WITH BEGINNING CYLINDER 
TST FC 3IF FC <> O 
BEQ T8.5$% sELSE SKIP 
MOV @SEEK,DTADPB+2 ;THEN SEEK TO FC BEFORE TIMING PORTION OF TEST 
TRAP C$BSUB 
JSR R4,ORVCAL sSEEK TO FC 
TRAP CsESUB 
CLR RS 3SET THE UP/DOWN SWITCH TO UP 
JSR PC, STRTMR sINITIALIZE THE TIMERS 
JSR PC, STOPCK sSTOP THE CLOCK 
sSETUP VECTOR IN CASE OF CLOCK OVERFLOW 
MOV @PRIOG, -( SP) 
MOV #T8.7%,-CSP) 
MOV PKV, -CSP) 
MOV @3,-C(SP) 
TRAP CsSvEC 
ADD #10,SP 
sSETUP RHXX/RPO7 VECTOR 
MOV @PRIOO, -( SP) 
MOV @DORTI, -( SP) 
MOV RPVEC, -CSP) 
MOV @3,-CSP) 
TRAP CsSvEC 
ADD #10,SP 
sSEEK FORWARD: FC --> LC 
INC OTADPB+12 sMOVE TO NEXT CYLINDER UP 
CMP OTADPB+12,LC sOUT OF CYLINDERS? 
BGT 78.3% sYES, GO SEEK REVERSE 
TRAP CsB8SUB 
CLR 8PKB sSTART THE COUNTER AT ZERO 


SEQ 0128 


M10 
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031420 
031426 
031434 
031442 
031444 


031736 
031740 


013777 


016212 
012552 


002642 
177777 


: ONE CYLINDER SEEK TIMING TEST 


151276 
151234 
160560 


160544 
151212 


151164 
151156 


002264 


002204 


151104 
151042 
160366 


160352 
151020 


150772 
150764 


002264 


MOV OTADPB+12,@RPOC ;LOAD > CYLINDER 
MOV #SEEK, @RPCS1 sSTART A SEE 
MOV 0131,@PKCS sSTART THE CLOCK 
WAIT sWAIT ON INTERRUPT 
MOV aPKC, -CSP) sGET THE CURRENT COUNT 
BIC #101,8PKCS sSTOP THE CLOCK 
MOV (SP)+,@PKB sAND RESTORE THE VALUE 
BIT #B81T14,A8RPDS sANY DISK ERRORS? 
BEQ T8.2$ 3NO- -BRANCH 
JSR PC, SAVREG + SAVE RO-RS 
MOV #OTADPB ,R2 :0PB POINTER 
JSR PC, SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
MOV @cLR, @RPCS2 sMASSBUS CLEAR 
MOV DTADPB , BRPCS2 sSELECT ORIVE 
JSR PC ,RESREG :sRESTORE RO-RS 
JSR RS,ERRANY sFIND OUT WHAT ERROR 
CTADPB 
L10054: 
TRAP CsSESUB 
BIT @BITS,SVSTAT sPOSITION ERROR? 
BNE T8.9$% sYES, ABORT TEST 
T8.2%: JSR PC ,COUNT sCOUNT THIS SEEKS TIME 
JSR PC, TWOMS sSTALL TWO MILLISECONDS 
BR 78.1% ;LOOP, SEEK FORWARD 
T8.3%: DEC OTADPB +12 sMOVE TO NEXT CYLINDER DOWN 
MOV #-1,R5 ;SET UP/DOWN SWITCH TO DOWN 
;SEEK REVERSE: FC <-- LC 
T8.4%$: DEC DTADPB +12 sMOVE TO NEXT CYLINDER DOWN 
CMP DTADPB+12,.FC sOUT OF CYLINDERS? 
2.3 BLT T8.6% sYES, EXIT LOOP 
TRAP CsBSUB 
CLR aPKB sSTART THE COUNTER AT ZERO 
MOV DTADPB+12,@RPDC ;LOAD DESIRED CYLINDER 
MOV @SEEK ,@RPCS1 sSTART A SEEK 
MOV #131,8PKCS sSTART THE CLOCK 
WAIT sWAIT ON INTERRUPT 
MOV @PKC, -(SP) 3GET THE CURRENT COUNT 
BIC #101,8PKCS sSTOP THE CLOCK 
MOV ¢ +, 8 sAND RESTORE THE VALUE 
BIT #81T14,8RPDS sANY DISK ERRORS? 
BEQ T8.10$% 3NO--BRANCH 
JSR PC ,SAVREG 23SAVE RO-RS 
MOV 4O0TADPB ,R2 :0P8 POINTER 
JSR PC , SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
MOV R,@RPCS2 sMASSBUS CLEAR 
MOV OTADPB , 8RPCS2 sSELECT ORIVE 
JSR PC,RESREG 3sRESTORE RO-RS 
JSR RS,ERRANY 3sFIND OUT WHAT ERROR 
OTADPB 
L10055: 
TRAP CsESUB 
BIT BITS,SVSTAT sPOSITION ERROR? 
a me BEQ T8.10$% 3NO, CONTINUE 


SEQ 0129 


110 


N10 
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031740 


032210 
032210 


012746 


004633 
000001 
000004 


016212 
012552 


002642 
002256 


177777 
031376 
012426 


002256 


150622 
150614 


002276 
002302 
002300 


150544 
150536 


78.108; 


78.68: 


T8.7$: 


T8.8$: 


L100S2: 


@POSERR , -( SP) 


7(R2), TRK.RD 
PC ,RESREG 
CSERHRD 


EM20 
OH44 


CLR, @RPCS2 
DTADPB , BRPCS2 
PC,ST.CLK 
R4,TYPTIM 


R4,SPTYP 


@ISRV, -(SP 
RPVEC, -(SP 
03, -(SP} 
CsSvEc 
@10,SP 


CsETST 


cot ist 
e) 


sCOUNT THIS SEEKS TIME 
sSTALL TWO MILLISECONDS 
3;LOOP, SEEK REVERSE 

sMOVE TO NEXT CYLINDER 
;D00NE TWICE? 

3sIF MINUS, YES. 

sMARK THE FIRST “ITERATION 
sSEEK FORWARD AGAIN 
sNOW!!! 


sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 
sDROP THE PRIORITY 


33SAVE RO-RS 

s0PB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 

sMASSBUS CLEAR 

;SELECT DRIVE 

sADDRESS OF SAVED REGISTER TABLE 
CYLINDER 


ssRESTORE RO-RS 


sCLEAR THE MASSBUS 

s€ SELECT ORIVE 
sINITIALIZE THE CLOCK 
sGO TYPE THE TIMES 
sPOINTER 


sSETUP RHXX/RPO7 VECTOR 


CZRILBO 
TEST 9; 


OBA fhinfor 


id 
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AVERAGE SEEK TIME MEASUREMENT TEST 


032212 


032426 


012702 


150354 


150304 
157630 


157614 
150262 


. SBTTL 


FF PPSOOEOHEEEEEEEEEEEEHEEEOEEESEEEEEHREOEEEEEEAEEEEEEEDAEOEEEROESEEOEREEEOEAEEEEEES 


3 
a 
i 
8 
i 
+ 
3 
a 
o 
4 
T9:: 


1$: 


2s: 
TESTS: 


79.18: 


T9.1: 


TEST 9: AVERAGE SEEK TIME MEASUREMENT TEST 


THIS TEST WILL MEASURE THE AVERAGE SEEK TIME AS FOLLOWS: 


T CAVG)= 


WHERE : 


2x (TL X 629) + (T2 KX 628) + (T3 XK 627) «+... 


629 X 629 


THE TN IS THE MEASURED TIME INTERVAL FOR SEEKING FROM 
CYLINDER O TO CYLINDER N OR FROM CYL N TO CYL O. 
2x629 IS THE TOTAL NUMBER OF SEEKS. 


CLKSTA 
1$ 


L10056 -. 
@TIMT11,R3 


NC1,R1 
PC.STRTMR 
PC, STOPCK 


Cs6SUB 
@SEEK , BRPCS1 


#81T14,@RPDS 
19.28 

PC, SAVREG 
@DTADPB ,R2 


5 POSSESSES EEEEEEEREOEEEEEESEEEEEEREREEEEEEEEESEEEREEEEEOEESEEEEEEEEREREEEES 


sKW11-P CLOCK? 
sYES--START TEST 


300 A MASSBUS INIT E RECAL 
sRETURN HERE IF NO ERROR 


sPARAMETER POINTER 
sCOUNT AND COEFFICIENT 
sINIT. THE COUNTERS 
sSTOP THE CLOCK 


sSETUP VECTOR IN CASE OF CLOCK OVERFLOW 


sSETUP RHXX/RPO7 VECTOR 


sINITIALIZE THE SEEK CYLINDER ADORESS 
s INCREMENT THE SEEK CYLINDER ADDRESS 
sSEEK ADDRESS 

sSTART COUNT AT ZERO 


sSTART A SEEK 

sSTART THE CLOCK 

sWAIT ON INTERRUPT 
sSTORE THE COUNTED VALUE 
sSTOP CLOCK 

sAND RESTORE THE COUNT 


3NO- -BRANCH 
ssSAVE RO-R5S 
s0P8 POINTER 


-* (T629 K 1)) 


SEQ 0131 
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032432 004737 024644 JSR PC, SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
032436 012777 000040 150234 MOV @CLR,@RPCS2 sMASSBUS CLEAR 
032444 013777 002630 150226 MOV DTADPB , ARPCS2 sSELECT DRIVE 
0324S2 004737 011002 JSR PC,RESREG ssRESTORE RO-RS 
44 032456 004537 012766 JSR RS,ERRANY sF INDOUT WHAT ERROR 
4S 032462 002630 DTADPB 
46 032464 L10057: 
032464 104403 TRAP CsESUB 
47 032466 032737 000040 002264 BIT oBITS,SVSTAT sPOSITION ERROR? 
48 032474 001063 BNE 19.4% sYES, ABORT TEST 
49 032476 005005 T9.2$: CLR RS sSET UP/DOWN SWITCH TO UP 
SO 032500 004737 016012 JSR PC ,COUNT2 sUPDATE THE COUNT 
51 032504 004737 012552 JSR PC. TWOMS sSTALL 2 MSEC 
S2 032510 79.2: 
032510 104402 TRAP C$BSUB 
53 032512 005077 157506 CLR aPKB sSTART THE COUNT AT ZERO 
S54 032516 012777 000000 150200 MOV #0 , ARPOC sALWAYS SEEK BACK TO THE FIRST CYLINDER 
SS 032524 012777 000105 150136 MOV @SEEK , @RPCS1 sSTART A SEEK 
S56 032532 012777 000131 157462 MOV @131,8PKCS sSTART THE CLOCK 
S7 032540 000001 WAIT sWAIT ON INTERRUPT 
S8 032542 017746 157460 MOV PKC, -CSP) sSAVE THE CLOCK VALUE 
59 032546 042777 000101 157446 BIC #101, @PKCS sSTOP THE CLOCK 
69 032554 012677 157444 MOV CSP )+, aPKB sNOW RESTORE THE VALUE 
61 032560 032777 040000 150114 BIT e1114, @RPOS sERR=1? 
62 032566 001437 BEQ 9.3% sNO- -B8RANCH 
63 032570 004737 010750 JSR pe: SAVREG +sSAVE RO-RS 
032574 012702 002630 MOV @DTADPB ,R2 s0PB POINTER 
032600 004737 024644 JSR PC. SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
032604 012777 000040 150066 MOV CLR , BRPCS2 sMASSBUS CLEAR 
032612 013777 002630 150060 MOV DTADPB,@RPCS2 ;SELECT ORIVE 
032620 004737 011002 JSR PC ,RESREG ssRESTORE RO-RS 
64 032624 004537 012766 JSR RS ,ERRANY sFIND OUT WHAT ERROR 
6S 032630 002630 OTADPB 
66 032632 L10060: 
032632 104403 TRAP CsESUB 
67 032634 032737 000040 002264 BIT oBITS,SVSTAT sPOSITION ERROR? 
68 032642 001411 BEG 19.38 sNO, CONTINUE 
69 032644 19.48: 
032644 012746 004633 MOV @POSERR, -( SP) 
032650 012746 000001 MOV 1, -(SP) 
032654 010600 SP ,RO 
032656 104417 TRAP CSPNTF 
032660 062706 000004 @4,SP 
70 032664 000466 BR 179.8% 
71 032666 012705 177777 79.3%: MOV #-1,R5 sSET UP/DOWN SWITCH TO DOWN 
72 032672 004737 016012 JSR PC ,.COUNT2 sUPDATE THE COUNT 
73 032676 004737 012552 JSR PC, TWOMS iSTALL 2 MSEC 
74 032702 005301 DEC R1 3 DONE ? 
75 032704 003214 BGT 79.18 sNO- -BRANCH 
i 032706 000455 BR 79.8% sYES--EXIT 
78 032710 004737 012426 79.7%; JSR PC .FORSEC sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 
79 sOROP THE PRIORITY 
80 032714 012700 000000 MOV @PRIOO,RO 
032720 104441 TRAP CsSPRI 
81 032722 004737 010750 JSR PC, SAVREG ssSAVE RO-RS 


032726 012792 002630 MOV @DTADPB ,R2 s0PB POINTER 


CZRILBO 
TEST 9; 


82 
83 


92 
93 


Dil 
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SEEK TIME MEASUREMENT TEST 


AVERAGE 


033124 
033124 


033126 


004737 
012777 
013777 
016102 
016237 
116237 
116237 
004737 


013746 
012746 


013777 


147734 
147726 


002276 
002302 
002300 


147630 
147622 


19.88: 


L10056: 


INCCYL: 


TRAP 
- WORD 


PC, SVRHXX 
CLR ,@RPCS2 
DTADPB , @RPCS2 
14(R1),R2 
36(R2),CYL.RD 
6(R2),SEC.RD 
7(R2), TRK.RD 
PC,RESREG 


RPVEC +2, -(SP) 


CLR, @RPCS2 
DTADPB , ARPCS2 
PC,ST.CLK 
R4,TYPTIM 


R4,SPTYP 


RPVEC +2, -(SP) 
$3, -(SP) 
CsSvEC 

#10,SP 


CseTs?r 
ie) 


sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT DRIVE 

sADDRESS OF SAVED REGISTER TABLE 
sGET CURRENT CYLINDER 

sGET CURRENT SECTOR 

sGET CURRENT TRACK 

:sRESTORE RO-RS 

sSETUP RHXX/RPO7 VECTOR 


sCLEAR THE MASSBUS 

s€ SELECT ORIVE 
sINITIALIZE THE CLOCK 
sGO TYPE THE TIMES 
sPOINTER 


sSETUP RHXX/RPO7 VECTOR 


sCYL ADR COUNTER 


SEQ 0133 


CZRJLBO 


TEST 10: 


ODBANADWNS wnt 


27 
28 


Ell 
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MAXIMUM SEEK TIMING TEST 


033130 
033130 
033134 
033136 
033140 
033142 
033146 
033150 
033152 
033154 
033160 
033164 
033170 


033174 


033352 


012777 
013777 


147440 
147376 
156722 
156706 


147354 


147326 
147320 


. SBTTL 


TEST 10; MAXIMUM SEEK TIMING TEST 


3 EPFHROREAAEREAEREEAOESESEREEEEESEEAEESEAREEEEREAEEESESCEEEEEEEEEEEEREEESEEE REESE 


34 THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 
3* CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
3* CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 
34 THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 
3 TIME. THIS SEQUENCE IS REPEATED 512 TIMES (FOR 
34 A TOTAL OF 1024 SEEKS). THE MAXIMUM SEEK TIME MUST BE LESS THAN 
34 46 MS. ‘LC' DEFAULTS TO 629 (10) 
3* FOR RPO7'S. 
FF FPAMOAEHSEEEESEEEEEEEEEEEEEEEAEEEESEEREREEEEEREEALAEHEEAEREEEEEERESEAEEEEEEEEEE 
T10:: 

TST CLKSTA 3KW11-P CLOCK 

BGT 1$ 3YES--START TEST 

TRAP CSEXIT 

-WORD L10061-. 
1$: JSR R4,SRCHOO 3:00 A MASSBUS INIT &€ RECAL 

BR 2s sRETURN HERE IF NO ERROR 

TRAP CSExIT 

- WORD L10061-. 
2s: MOV @TIMT12,R3 sPARAMETER POINTER 
TES7T10: MOV #512.,R1 sREPEAT “O-'LC’'-0” 512 TIMES 

JSR PC,STRTMR sINIT. THE TIMERS 

JSR PC, STOPCK :STOP THE CLOCK 

sSETUP VECTOR IN CASE OF CLOCK OVERFLOW 

MOV OPRIO6, -( SP) 

MOV #T10.7%$,-CSP) 

TRAP CsSvEC 

ADD #10,SP 

3;SETUP RHXX/RPO7 VECTOR 

MOV @PRIOO, -( SP) 

MOV @DORTI, -CSP) 

MOV RPVEC, -(SP) 

MOV @3,-(SP) 

TRAP CsSvEC 

ADO #10,SP 
710.1: 

TRAP Cs6SUB 
T10.1%: CLR aPKB sSTART COUNTING FROM ZERO 

MOV LC ,@RPOC sMAXIMUM CYLINDER 

MOV @SEEK,@RPCS1 sSTART A SEEK 

MOV #131,8PKCS sSTART THE CLOCK 

WAIT sWAIT ON INTERRUPT 

MOV @PKC, -( SP) sSAVE THE CLOCK 

BIC #101,8PKCS sSTOP THE CLOCK 

MOV (SP )+,aPKB sAND RESTORE THE COUNTED VALUE 

BIT oBIT14, SRPOS sERR=1? 

BEQ 710.28 3NO- -BRANCH 

JSR PC, SAVREG 3sSAVE RO-RS 

MOV ODTADPB, R2 10PB POINTER 

JSR PC, SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 

MOV OCLR,@RPCS2 sMASSBUS CLEAR 


MOV DTADPB,@RPCS2 ;SELECT DRIVE 


SEG 0134 


CZRJLBO 


TEST 10: 


Fil 
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MAXIMUM SEEK TIMING TEST 


012777 
013777 


011002 
012766 


000040 


016212 
012552 


177777 
016212 
012552 


002264 


147232 
156556 


156542 
147210 


147162 
147154 


002264 


147030 
147022 


L10062: 


T10.2$: 


T10.2: 


10063: 


710.48: 


710.38: 


710.78; 


PC ,RESREG 
RS,ERRANY 


CsESUB 
#BITS,SVSTAT 
710.4% 

RS 

PC,COUNT 

PC, TWOMS 


C$B8SUB 

aPKB 

@RPOC 
@SEEK , @RPCS1 
#131,@PKCS 


@PKC, -(SP) 
#101,a8PKCS 
CSP )+,@PKB 
0B1T14,@RPDS 
710.3% 

PC, SAVREG 


RS.ERRANY 


CsESUB 
#BITS,SVSTAT 
710.3% 


@POSERR, -(SP) 
#1,-CSP) 


@CLR, @RPCS2 
DTADPB , @RPCS2 


+sRESTORE RO-RS 
sFIND OUT WHAT ERROR 


sPOSITION ERROR? 

sYES, ABORT TEST 

sSET THE UP/DOWN SWITCH TO UP 
;UP THE COUNT 

sSTALL FOR TWO MILLISEC 


sSTART COUNT AT ZERO 
sGEGINNING CYLINDER IS 0 
sSTART A SEEK 

sSTART THE CLOCK 

sWAIT ON INTERRUPT 

sSAVE THE CLOCK 

sSTOP THE CLOCK 

sNOW RESTORE CLOCK 

3; "ERR" =1? 

3NO- -BRANCH 

33;SAVE RO-RS 

3;0PB6 POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT DRIVE 

3s sRESTORE RO-RS 

sFIND OUT WHAT ERROR 


sPOSITION ERROR? 
sNO, CONTINUE 


;SET THE UP/DOWN SWITCH TO DOWN 
sUPDATE THE COUNT 

sSTALL FOR TWO MILLISEC 

3DONE? 

3NO- -BRANCH 

3 YES--EXIT 


sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 
sOROP THE PRIORITY 


ssSAVE RO-RS 

sO0PB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT ORIVE 


SEQ 0135 


CZRJLBO 


TEST 10; 


79 


87 


Gil 
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MAXIMUM SEEK TIMING TEST 


016102 


012777 
013777 
004737 


002276 
002302 
002300 


146752 
146744 


710.88: 


L10061: 


14(R1),R2 
36(R2),CYL. 


RD 


6(R2),SEC.RD 
7(R2), TRK.RO 


PC ,RESREG 
CSERHRD 


#CLR,@RPCS2 
DTADPB , ARPC 
PC,ST.CLK 
R4,TYPTIM 


R4,SPTYP 


Se 


RPVEC+2, -(SP) 


@ISRV, -CSP) 
@3,-(SP) 
C$SVEC 
#10,SP 


CsETST 


sADDRESS OF SAVED REGISTER TABLE 
;GET CURRENT CYLINDER 

;GET CURRENT SECTOR 

sGET CURRENT TRACK 

ssRESTORE RO-RS 


;CLEAR THE MASSBUS 

3€ SELECT DRIVE 
sINITIALIZE THE CLOCK 
;GO TYPE THE TIMES 
sPOINTER 


sSETUP RHXX/RPO7 VECTOR 


SEG 0136 


Hid 
CZRJLBO RPO7 FCTNL TEST MACRO VO4.00 1-DEC-83 12:59:38 PAGE 60 SEQ 0137 
TEST 11: MID-TRANSFER SEEK TEST 


1 -SBTTL TEST 11: MID-TRANSFER SEEK TEST 
2 
z i I PPRAEREEEAEEREEEEEEEEEEERAEEEEEEEEEEEEEEREAEEEREREEEEREEEREREEREEEEEEAEEEEDES 
4 sTHIS TEST EXECUTES READ-DATA COMMMANDS TO EVERY TRACK IN THE 
bey sFIRSTCSTARTING) CYLINDER. 
6 Hy 
7 ;THE FULL TRACK TRANSFER IS MADE IN 2 PASSES: 
8 3 1ST PASS, SECTORS: 00. THRU 24, 
: 3 2ND PASS, SECTORS: 25. THRU (49. +1) 
1 ; 
il 3; THE PARAMETERS: 
12 3 STARTING CYLINDER = FC 
13 3 STARTING TRACK = FT 
ja F ENDING TRACK = LT 
15 3 INCREMENT TRACK = 1 
1] F STARTING SECTOR = 0 
3 
18 5 SPREAAAEAAAEESEEEEEEEREEEEEEEEREEEEEEEEEEEAEAAEREEEEREEEEDAREREEEEEEEEEEEEEREES 
19 
20 034004 Tli:: 
21 034004 004737 020400 JSR PC,RPINIT sINITIALIZE THE SUB-SYSTEM 
22 034010 004737 012364 JSR PC ,STOPCK sSTOP THE CLOCK 
23 034014 113737 002664 002630 MOVB DRVNO,OTADPB sORIVE ADDRESS 
24 034022 112737 000171 002632 MOVB @RDDAT ,OTADPB+2 ;READ-DATA COMMAND 
25 034030 013737 002354 002634 MOV TRKWC,OTADPB+4 ;ASSUME HALF FULL TRACK 
26 034036 012737 042762 002636 MOV @OBUFF ,OTADPB+6 ;BUFFER ADDRESS 
27 034044 112737 002640 MOVE 0 ,.D0TADPB+10 sSECTOR ADOR 
28 034052 113737 002212 002641 MOVB FT, OTADPB+11 3s TRACK ADOR 
29 034060 013737 2 002642 MOV FC,OTADPB+12 sCYLINDER ADDRESS 
30 034066 012737 002754 002644 MOV @REG,OTADPB+14 ;RHXX/RPO7 REGISTER 
31 034074 37 002256 CLR DOTWO sRESET 2 ITERATIONS CONTROL 
32 034100 T11.1: 
034100 104402 TRAP Cs6SUB 
33 034102 T11.28: 
034102 004437 015056 JSR R4,ORVCAL sSTART A DATA TRANSFER 
34 034106 005737 002256 TST DOTWO ;DONE HALF TRACK TWICE? 
35 034112 100411 BMI es ;YES, EXIT 2 ITERATIONS LOOP 
36 034114 005337 002256 DEC OOTWO sNO, MARK 2ND ITERATION 
37 034120 112737 000031 002640 MOVB 25.,DTADPB+10 ;TFR 2ND HALF OF TRACK 
38 034126 062737 177400 002634 ADD @-256. ,DTADPB+4 ;YES, SET WC FOR 2ND HALF TRACK + 1 SECTOR 
= 034134 000762 1%: BR T11.2$% sLOOP TO TFR 2ND HALF TTRACK 
41 034136 005037 002256 2s: CLR OOTWO sRESET PARAMETERS FOR 1ST LOOP 
42 034142 105037 002640 CLRB OTADPB +10 sRESTART AT SECTOR O 
43 034146 162737 177400 002634 SUB @-256.,DTADPB+4 ;WC FOR 1ST HALF TRACK 
44 034154 L10065: 
034154 104403 TRAP CsESuB 
4S 034156 113702 002641 T11.5%: MOVB OTADPB+11,R2] sUPDATE THE TRACK ADDRESS 
46 034162 063702 002216 ADD IT,R2 sADD THE DESIRED TRACK NUMBER 
47 034166 023702 002214 CMP LT,R2 sOVER THE TRACK LIMIT? 
48 034172 101403 BLOS EXIT11 sBRANCH IF SO 
49 034174 110237 002641 MOVB R2,D0TADPB+11 3TO NEXT TRACK 
50 034200 000740 BR T11.2$% ;LOOP BACK 
51 034202 004737 020400 EXIT11: JSR PC,RPINIT 
52 034206 L10064;: 
034206 104401 TRAP CSETST 


a 
Ss esses see 


CZRJILBO 


TEST 


le: 


OBNOUS We 


RPO7 FCTNL TEST 
ERROR REGISTER 


004737 
004737 
113737 
112737 
012737 
012737 
113737 
113737 
013737 
012737 


Tit 
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BIT TEST 


040000 
012766 
177400 


015160 
001000 


000012 


002634 


000014 


000014 


.SBTTL 


Tl2:: 


T12.1: 


L10067: ~ 
T 


TSTle: 


1%: 
T12.2: 


L10070: 
TST12A: 


1%: 


2s: 
EXIT12: 
L10066: 


TEST 12: 


LBT,AOE: 


ERROR REGISTER BIT TEST 


§ PPAR EEREEEEEEAEEEREEEEEEEEEEAEEEEEEEEEARERAEERERAEEREEEEDEEREEEAEEEEERS 
THIS TEST FORCES LBT € AOE ERROR BITS THAT ARE NOT FULLY CHECKED BY THE 

MICRO DIAGNOSTICS 
READ THE LAST USER SECTOR WITH A WORD COUNT >256. 


FF FSSA EASEEASEEHESABEEEELASESEEEEEAEEAEEEEAEEEAREREREEEEEEARERAEAEEEAEEEEEEEEES 


PC,RPINIT 
PC, STOPCK 


DRVNO, DTADPB 


sINITIALIZE THE SUB-SYSTEM 
sSTOP THE CLOCK 


sORIVE AD 
ORDDAT ,DTADPB+2 iSET READ CMD IN DP 


@SCTRWC, OTADPB +4 


B 
sSET WORD COUNT TO READ ONE SECTOR 


ODBUFF , OTADPB +6 sDATA BUFFER 

NS1,DTADPB+10 ;SET LAST USER SECTOR IN DPB 

NT1,D0TADPB+11 sI.€., CYL 629, TRK 31, SEC 49 

NC1,DTADPB+12 

@REG,OTADPB+14 ;POINT TO RHXX/RPO7 REG TABLE SAVED ON CMD DONE 


C$BSUB 

PC .EXECMD sEXEC CMD 

#LST,12(R2) 3;L6T=1? 

TST1le2 ;0K, SKIP 

CSERHRD 

50 

EMSO 

0 

CsESuB 

#ERR,12CR2) ;OTHER ERRORS? 

1$ 3NO, SKIP 

RS,ERRANY ;YES, FLAG THEM 

@SCTRWC ,OTADPB +4 ;SET OPB TO READ BEYOND LAST SECTOR 
CsBSUB 

PC ,EXECMD sATTEMPT TO READ PAST LAST SECTOR 
@AOE ,14(R2) 3AOE=1? 

TST12A 30K, SKIP 

CSERHRD 

51 

EM51 

{0} 

CsESUB 

@AOE ,14(R2) sCLEAR ERROR IN ERROR TABLE 
1$ 3FLAG OTHER ERROR, IF ANY 
@D0VC .42(R2) sCER2)(ER3) = O ? 

1$ sNO, FLAG OTHER ERRORS 

2s sSKIP ON CER1)CER2)(ER3) = O 
RS ,ERRANY sFLAG ERRORS 


CsETST 


SEQ 0136 


CZRJILBO 


TEST 13: 


OV@BnOVibwfr 


Jil 
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OFF SET/RETURN-TO-CENTER-LINE TEST 


-SBTTL TEST 13: OFFSET/RETURN-TO-CENTER-LINE TEST 


034436 004737 
034442 012737 
034450 013737 
034456 113737 
034464 113737 
034472 013737 
034500 012737 
034506 012737 


034514 104402 
034516 004437 
C34S22 013702 
034526 032762 
034534 001005 
034536 104456 


000066 
034542 007547 
000000 


034546 104403 
034550 012737 


000117 


015056 
002644 
000001 


002244 


000012 


002632 


000012 


bE RPRAERESEREEEERESEEEEEEEEREEEEEREEEAEEREREREEEDEAEDAEAEREAREREEEEEEEDEEEDEREES 
ISSUE AN OFFSET COMMAND, PROCESS THE ATTENTION INTERRUPT AND CHECK FOR 
ERRORS, VERIFY THE ASSERTION OF OM OF RPDS. 

ISSUE THE RETURN TO CENTER LINE COMMAND, PROCESS THE ATTENTION INTERRUPT 
AND CHECK FOR ERRORS, VERIFY THE RESETTING OF OM. 

5 EAOORARAEREREREEESEEEEAAREERORAREEEREREEEEEDEEEERAEDAEERERREEREREREEEEEDEREREE 


3* 


T13:: 


TEST13: 


T13.1: 


L10072: © 


TST13: 
T13.2: 


L10073: 


713.18: 


EXIT13: 
L10071: 


PC,RPINIT 
#10. ,ITCNT 
DRVNO,OTADPB 
FS,OTADPB+10 
FT,OTADPB+11 
FC ,OTADPB+12 


@REG ,DTADPB +14 
@OF FSET ,DTADPB+2 


CsESUB 


ITCNT 
TEST13 


CsETSsT 


sINITIALIZE THE SUB-SYSTEM 
sSET ITERATION COUNT 

sGET DRIVE NUMBER 

sOPERATE ON FS,FT,FC 


sPOINTER TO RHXX/RPO7 REG TABLE SAVED ON CMD DONE 
sLOAD OFFSET CMD 


START A DATA TRANSFER 


ey TO RHXX/RPO7 REG TBL SAVED ON CMD DONE 
3 af 
3 OK 


sLOAD RETURN TO CENTER LINE CMD 


sSTART A DATA TRANSFER 

sPOINTER TO RHXX/RPO7 REG TBL SAVED ON CMD DONE 
= = 0? 

; 


sDONE ITERATIONS ? 
;BR IF NO 


SEQ 0139 


CZRJILBO 


TEST 14: 


OBnNDOUSwheE 


45 
46 


K14 
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RANDOM READ TEST 


013737 
005737 


004437 


002250 
002260 
020400 
012364 
002664 
000171 
177400 
042762 
002754 


017716 
015056 


002244 


015612 
036114 


015742 
000101 


000300 
035754 
012230 
000003 


000010 


000000 
015740 
002654 
000003 


002244 


002630 
002632 
002634 
002636 
002644 


155240 


-SBTTL TEST 14: RANDOM READ TEST 


§ I RPRAAEREREEEAAEEEAEEEEEEEREREREEEEEEEEERAEEEEEEEREEEEDEEEREREEEEEEDE ERED REEDS 
sTHIS TEST RANDOMLY SELECTS A SECTOR ADDRESS: CYL BETWEEN FC AND LC, 
; TRK BETWEEN FT AND LT, 

SEC BETWEEN FS AND LS. 
VIF THERE IS NO P-CLOCK, IT THEN EXECUTES A READ DATA COMMAND TO 1 SECTOR 
s;AFTER EACH READ-DATA COMMAND , THE PROGRAM VERIFIES THE 
;BUS, DATA AND VERIOUS RHXX/RPO7 REGISTERS. 
sIF THERE IS A P-CLOCK, THE PROGRAM PERFORMS AN ADDRESS MARK DETECTION TEST: 
;IT VERIFIES THAT DATA CAN BE READ CORRECTLY WITHIN THE SAME DISC REVOLUTION 
sAS A SECTOR DETECTION. SEARCH FOR THE LOGICAL SECTOR PRECEDING THE SELECTED 
sSECTOR TO READ, THEN READ THE SELECTED SECTOR. TIME THE SEARCH DONE-READ DONE 
:TO BE WITHIN A DISC REVOLUTION. FLAG LOST REVOLUTIONS. 
i EPRREREAEEEAEEEERAEEEEEREREEEEEEEEEEEAEEEEEEREEEEEEDEEREEEEEEEEEEEEEEEEDEEEEES 


T14:: 
MOV XTIMES,ITCNT sSET ITERATION COUNT 


TST CLKSTA 3sP-CLK PRESENT? 

BGT TST14A sYES, EXEC RAND READ TEST + AD MARK DET 
JSR PC ,RPINIT sINITIALIZE THE SUB-SYSTEM 

JSR PC, STOPCK sSTOP THE CLOCK 


MOVB DRVNO,DTADPB sLOAD THE DRIVE ADDRESS 
MOVB @RODAT ,DOTADPB+2 ;EXECUTE READ COMMAND 
MOV @-256.,D0TADPB+4 ;WORD COUNT = 1 SECTOR 
MOV @OBUFF .DTADPB+6 ;BUFFER ADDRESS 

MOV @REG,DTADPB+14 ;RHXX/RPO7 REGISTER TABLE 


Sod ayy JSR R4,RANADR sGENERATE A STARTING ADDRESS 
14.1: 

TRAP Cs$B8SUB8 

JSR R4,DRVCAL sSTART A DATA TRANSFER 
L10075: 

TRAP CsESuB 
EXIT14: DEC ITCNT 


sDONE ITERATIONS ? 
BNE TEST14 ;BR IF NO 

TRAP CsExIT 

-WORD L110074-. 


TST14A: JSR R4, SRCHOO sMASS BUS INIT & RECAL 
BR 1$ sNO RECAL ERROR, CONTINUE 
JMP xIT14 sEXIT ON RECAL ERROR 
JSR PC,.STRTMR sINIT THE TIMERS 
BIC #101,aPKCS sSTOP THE P-CLOCK 
sSETUP VECTOR IN CASE OF CLOCK OVERFLOW 
MOV @PRIOG, -( SP) 
MOV #7T14.7$,-CSP) 


sSETUP RHXX/RPO7 VECTOR 


SEQ 0140 


CZRJLBO 


TEST 14: 


Lil 


sSET COUNT-UP FLAG FOR COUNT SUBR 
sCLEAR TEMPORARY LOST REVOLUTION COUNT 


";REDUCE THE TARGET SECTOR BY 2. TO COMPUTE THE VALUE OF THE 2ND LOGICAL 


;GEN A RAND ADR: CYL, TRK, SEC 

;GET TARGET SECTOR ADDRESS TO READ AND 
;SAVE IT FOR LATER 

;IS INTERLEAVED SECTOR ENABLED ? 

;BR IF YES 

sBACKUP THE SECTOR ADDRESS FOR THE SEARCH 
;BR IF < SECTOR O 

ed FOR ADDRESS BEFORE SECTOR O 

3EX 


3IS IT SECTOR ADDR O ? 

;B8R IF YES 

;IS IT SECTOR ADDR 25 ? 

;BR IF NO 

sADJUST FOR THE ADDRESS BEFORE SECTOR O 
sREDUCE THE TARGET SECTOR BY 2 


ee SEARCH SECTOR FOR LATER 


;CYL 

sMERGE SECTOR 

;AND TRK 

sLOAD TRK/SEC 

sREAD 1 SECTOR 

;SET DATA BUFFER ADR 

s TIMING LIMITS FOR COUNT SUBR 
sALLOW > 6 REVOLUTIONS PER SEARCH: 


33 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 
33 FOR WORST CASE SEARCH(SECT CMP ERR OR HOR CRC ERR) 


RPO7 FCTNL TEST MACRO VO4.00 1-DEC-83 12:59:38 PAGE 63-1 
RANDOM READ TEST 

035030 104437 TRAP C$SvEC 
035032 062706 000010 ADD #10,SP 
035036 005005 CLR RS 
035040 005037 002240 CLR TEMPO 

sSECTOR. 
035044 004437 017716 714.1%: JSR R4,RANADR 
035050 113701 002640 MOVB DTADPB+10,R1 
035054 010137 002254 MOV R1, TRGSEC 
035060 032777 000004 145614 BIT #ILV,@RPDOS 
035066 001006 BNE / 2$ 
035070 162701 000002 SUB #2,R1 
035074 002 BGE 1$ 
035076 062701 000062 ADD #50. ,R1 
035102 000411 1$: BR 
035104 005701 2s: TST R1 
035106 001405 BEQ 3$ 
035110 162701 000031 SUB #25.,R1 
035114 001002 BNE 3$ 
035116 062701 000031 ADD #25.,R1 
035122 062701 000030 3%: ADD #24. ,R1 
035126 4$: 

sPREPARE TO SEARCH 
035126 T1410$: 
035126 714.2: 
035126 104402 TRAP C$BSUB 
035130 010137 002252 MOV R1, SRHSEC 
035134 013777 2 145562 MOV OTADPB +12, @RPOC 
035142 110146 MOVB Ri, -CSP) 
035144 113766 002641 000001 MOVB DTADPB+11,1(SP) 
035152 012677 145520 MOV (SP )+,@RPDA 
035156 012777 177400 145506 MOV @-256. , BRPWC 
035164 012777 042762 145502 MOV ODBUFF , ARPBA 
035172 012703 002502 MOV T1418 ,R3 
035176 012777 155020 MOV 06 , BPKB 
035204 012777 000105 155010 MOV #105, 8PKCS 
035212 012777 000131 145450 MOV @SEARCH, @RPCS1 
035220 000001 WAIT 
035222 017746 155000 MOV SPKC, -(SP) 
03 042777 000101 154766 BIC #101,8PKCS 
035234 012677 154764 MOV (SP)+, @PKB 
035240 032777 040000 145434 BIT #81T14,@RPDS 
035246 001533 BEQ 714118 
035250 004737 010750 JSR PC, SAVREG 
035254 012702 002630 MOV ° 
035260 004737 024644 JSR PC , SVRHXX 
035264 012777 000040 145406 MOV CLR, @RPCS2 
035272 013777 002630 145400 MOV DTADPB , RPCS2 
035300 004737 011002 JSR PC ,RESREG 
035304 004537 012766 JSR RS ,ERRANY 


sSTART P-CLOCK:IE,COUNT DOWN,LINE FREQ 
sSTART A SEARCH 

sWAIT ON INTERRUPT 

sSAVE THE CLOCK 

sSTOP THE CLOCK 

sAND RESTORE THE COUNTED VALUE 

sERROR? 


: ANC 

33SAVE RO-RS 

s0PB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT ORIVE 

ssRESTORE RO-RS 


SEQ 0141 


es Sie RE we 


Mil 


CZRJLBO RPO7 FCTNL ge a VO4.00 1-DEC-83 12:59:38 PAGE 63-2 SEQ 0142 


TEST 14: RANDOM READ T 


95 035310 002630 DTADPB sF IND OUT WHAT ERROR 
96 035312 L10076: 
035312 1044035 TRAP CsESUB 
97 035314 032737 000210 002264 BIT #BITS!BIT7,SVSTAT sRETRY ALLOWED ? 
98 035322 001022 BNE 1$ sBRANCH IS SO 
99 035324 012746 004511 MOV @SEAERR, -( SP) 
035330 012746 000001 MOV #1, -(SP) 
035334 010600 MOV SP ,RO 
035336 104417 TRAP CSPNTF 
035340 062706 000004 ADD 04, SP 
100 035344 012746 004614 MOV #ABOTST, -CSP) 
035350 012746 000001 MOV 1, -CSP) 
035354 010600 MOV SP,RO 
035356 104417 TRAP CSPNTF 
035360 062706 000004 ADD @4,SP 
101 035364 000137 036060 714.8% 
102 035370 1$: 
103 035370 012737 000020 002350 MOV #16. ,WCEFLG sRETRY 16 TIMES 
o. 035376 012777 154620 2%: MOV 6 , PKB sALLOW > 6 REVOLUTIONS PER SEARCH: 
1 
106 33 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 
7H 33 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR) 
109 035404 012777 000105 154610 MOV #105, @PKCS sSTART P-CLOCK:IE,COUNT DOWN,LINE FREQ 
110 035412 012777 000131 145250 MOV @SEARCH,@RPCS1 ;START A SEARCH 
111 035420 000001 WAIT sWAIT ON INTERRUPT 
112 035422 017746 154600 MOV @PKC, -CSP) sSAVE THE CLOCK 
113 035426 042777 000101 154566 BIC #101, @PKCS sSTOP THE CLOCK 
114 035434 012677 154564 MOV CSP )+,@PKB sAND RESTORE THE COUNTED VALUE 
115 035440 032777 040000 145234 BIT #B1T14,8RPDS sERROR? 
116 035446 001433 BEQ T1411 sEXIT IF NONE 
117 035450 012777 000040 145222 MOV CLR, @RPCS2 sMASSBUS CLEAR 
118 035456 013777 002630 145214 MOV OTADPB,@RPCS2 ;DRIVE ADDRESS 
119 035464 005337 002350 DEC WCEFLG sOVER RETRY LIMIT ? 
120 035470 001342 BNE sBRANCH IF NOT 
121 035472 012746 004550 MOV @SEABAD, -( SP) 
035476 012746 000001 MOV #1,-(SP) 
035502 01 MOV SP,RO 
035504 104417 TRAP CSPNTF 
035506 062706 ADD #4 ,SP 
122 035512 012746 004614 MOV @ABOTST, -( SP) 
035516 012746 000001 MOV #1, -C 
035522 010600 MOV SP ,RO 
035524 104417 TRAP CSPNTF 
035526 062706 000004 04, 
123 035532 000552 BR 714.8% sEXIT 
124 035534 714.3: 
035534 104402 TRAP C$#BSUB 
125 035536 013777 145132 11411%: MOV DTADPB+10,@RPDA ;SET TRK/SECT TO READ 
126 035544 005077 154454 CLR aPKB — CLK BUFFER COUNT 
127 035550 012777 000171 145112 MOV @RDDAT , BRPCS1 iSTAR READ 
128 035556 012777 000121 154436 MOV #121,@PKCS + OTART THe CLOCK; IE=1,UP,SINGLE, 10US 
129 035564 WAIT sWAIT ON INTERRUPT 
130 035566 017746 154434 MOV aPKC, -(SP) sSAVE THE CLOCK 
131 035572 042777 000101 154422 BIC #101, @PKCS sSTOP THE CLOCK 
132 035600 012677 154420 MOV (SP )+, @PKB sAND RESTORE THE COUNTED VALUE 
133 035604 032777 040000 145070 BIT #81714, RPDS sERR=1? 


Nii 
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TEST 14: RANDOM READ TEST 
134 035612 001437 BEQ 714128 sNO- -BRANCH 
135 035614 004737 010750 JSR PC, SAVREG s+sSAVE RO-RS 
035620 012702 002630 MOV @DTADPB ,R2 s0PB8 POINTER 
035624 004737 024644 JSR PC , SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
035630 012777 000040 145042 MOV CLR ,@RPCS2 sMASSBUS CLEAR 
035636 013777 002630 145034 MOV DTADPB,ARPCS2 ;SELECT ORIVE 
035644 004737 011002 JSR PC ,RESREG ssRESTORE RO-RS 
136 035650 004537 012766 JSR RS ,ERRANY sFIND OUT WHAT ERROR 
137 035654 002630 OTADPB 
138 035656 10077; 
035656 104403 TRAP CsESUB 
139 035660 032737 000040 002264 BIT @BITS,SVSTAT sPOSITION ERROR? 
140 035666 001411 BEQ T1412$ sNO, CONTINUE 
141 035670 012746 0046335 MOV @POSERR, -( SP) 
035674 012746 000001 MOV #1, -CSP) 
035700 010600 MOV SP ,RO 
035702 104417 TRAP CSPNTF 
035704 062706 000004 ADD @4,SP 
a 035710 000463 BR T14.8$ 
144 035712 004737 016212 T1412$: JSR PC, COUNT sCOUNT TIME SEARCH DONE-READ DONE 
14S 035716 023737 002320 002240 CMP TIM.UP+6,TEMPO ;ANY LOST REVOLUTIONS ? 
146 035724 001406 BEQ 1$ sBRANCH IF NO 
147 035726 005237 002240 INC TEMPO sUPDATE TEMPORARY LOST REVOLUTION COUNT 
148 035732 104455 TRAP CSEROF 
035734 . WORD 
035736 007521 WORD EMS2 
035740 010560 -WORD OHS2 
149 035742 021237 002250 18: CMP (R2),XTIMES sREPEATED 1024 TIMES? 
150 035746 002044 BGE 714.8% sYES, CONCLUDE TEST 
oss 035750 000137 035044 JMP 714.18 sNO, CONTINUE 
153 035754 004737 012426 714.78: JSR PC ,FORSEC sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 
154 sDROP THE PRIORITY 
155 035760 012700 000000 MOV @PRIOO,RO 
035764 104441 TRAP CsSPRI 
156 035766 004737 010750 JSR PC, SAVREG s3sSAVE RO-RS 
035772 012702 002630 MOV @DTADPB ,R2 sOPB POINTER 
035776 004737 024644 JSR PC. SVRHXX sSAVE ALL THE RHXX/RPO7 REGISTERS 
036002 012777 000040 144670 MOV CLR, @RPCS2 sMASSBUS CLEAR 
036010 013777 002630 144662 MOV DTADPB,GRPCS2 ;SELECT ORIVE 
036016 016102 000014 MOV 14(R1),R2 sADDRESS OF SAVED REGISTER TABLE 
036022 016237 000036 002276 MOV 36(R2),CYL.RO iGET CURRENT CYLINDER 
036030 116237 000006 002302 MOVB 6(R2),SEC.RD sGET CURRENT SECTOR 
036036 116237 000007 002300 MOVB 7CR2), TRK.RD sGET CURRENT TRACK 
036044 004737 011002 JSR PC .RESREG ssRESTORE RO-RS 
157 036050 104456 TRAP CSERHRD 
036052 000024 -WORD 20 
036054 006201 -WORD EM20 
036056 007672 «WORD OH44 
158 036060 714.88: 
036060 012777 000040 144612 MOV @CLR,@RPCS2 sCLEAR THE MASSBUS 
036066 015777 002630 144604 MOV DTADPB,@RPCS2 ;€ SELECT ORIVE 
159 036074 004737 012000 JSR PC,ST.CLK sINITIALIZE THE CLOCK 
160 036100 004437 016504 JSR R4,TYPTIM sGO TYPE THE TIMES 
036104 002502 T1418 sPOINTER 


161 036106 004437 016354 JSR R4,SPTYP 
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TEST 14; RANDOM READ TES 
162 036112 002542 SP1418 
163 036114 XIT14; sSETUP RHXX/RPO7 VECTOR 
164 036114 013746 002656 MOV RPVEC +2, -(SP) 
036120 012746 023046 MOV OISRV, -CSP) 
036124 013746 002654 MOV RPVEC, -( SP) 
036130 012746 000003 MOV @3,-(SP) 
036134 104437 TRAP CSSVEC 
036136 062706 000010 AOD #10,5P 
165 036142 L10074; 


036142 104401 TRAP CseTsr 


CZRILBO 


TEST 15; 


SOs NSwtor 


10 


Lig 
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FE CYLINDER ADDRESSING TEST 


104444 
052737 
112737 


104402 
004437 


104403 
005737 
100437 


000105 


015056 


000173 
015056 
002646 
002272 
002641 


002632 


002632 


002641 


. SBTTL 


TEST 15: FE CYLINDER ADDRESSING TEST 


i EAPO EEEHOEHEEAEEEEEEEEEEREEAREDEEEEEEEEREDEDRODEEREREDEREDEREREOEREOEEEES 
THIS TEST LOCATES THE FE CYLINDERS; 
THE FE CYLINDERS ARE CYL 630 AND 631, 


AT THE FIRST TEST CYCLE, THE TEST SETS 
“DMD” BIT OF THE RPMR REGISTER IN ORDER TO ACCESS 
FE CYLINDERS. 


THEN, THIS TEST EXECUTES READ HEADER AND DATA COMMANDS 
SEQUENTIALLY TO VERIFY THE ADDRESSING OF THE SECTOR 0 
OF EACH TRACK ( 0 TO 31 ) ON THE FIRST FE CYLINDER. 


AT THE SECOND TEST CYCLE, 
A SEEK COMMAND IS EXECUTED TO ACCESS THE SECOND FE CYLINDER. 


T15:: 


TEST15: 


18: 
715.1: 


L10101: 
715.2: 


TST15: 
L10102; 


PC,RPINIT 


ORVNO,R4 
> gem ctalaee 


04 ,.ORVTYP(R4) 
1% 

CSEROF 

36 


@SEEK ,OTADPB+2 


Cs$BSUB 
R4,ORVCAL 


ADPB +16 
ExIT15 


CsBSUB 
@ROHD , OTADPB +2 
R4,DRVCAL 


CsESUB 

DTADPB +16 
EXIT15 
NT1,0TADPB+11 


1% 
DTADPB +11 


5 SSOSOOEEEEEOSEOEEEEOEEEEESEEESOSESEESEEEEESESEAEEEEEEEDEAEOEREEEOEEEEEEEEEEEEEE 


sINITIALIZE THE SUB-SYSTEM 
sSTOP THE CLOCK 

sSET ITERATION COUNT 

sLOAD THE DRIVE —— INTO OPB 


3256 
sBUFFER ADDRESS 
sTRACK O, SECTOR O 
sASSUME NO FIX HEAD OPTION 
3TO FINO OUT FIX HEAD OPTION 
sBRANCH IF NO FIX HEAD 


sDOES IT CONTAIN FIX HEAD 
s;BRANCH IS SO 


sSET MAINTENACE MODE FLAG AT THE 2ND BYTE 
300 AN EXPLICIT SEEK 


sSTART A DATA TRANSFER 


sANY ERROR CONDITION EXISTS ? 
sEXIT IF SO 


sREAD THE HEADER AND DATA 
sSTART A DATA TRANSFER 


sANY ERROR 

sEXIT IF SO 

sLAST TRACK CHECKED ? 
sBRANCH IF NOT 


SEQ 0145 


D | 
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TEST 15: FE CYLINDER ADDRESSING TEST 


000760 


105037 
005237 
112737 


2 
000105 002632 


1$: 


715.3: 


J 
L10103; 


ExITiS: 
L10100: 


TsT15 


DTADPB+11 
DTADPB +12 
@SEEK ,OTADPB+2 


C$BSUB 
R4,ORVCAL 


CsESUB 
ITCNT 
TESTIS 
PC,RPINIT 
0M0 ,OTADPB 


CSsETST 


7) 


| 


sRESET TO TRACK O 
sACCESS 2ND FE CYL 
:00 AN EXPLICIT SEEK 


sSTART A DATA TRANSFER 


;DO0NE ITERATIONS ? 

;BR IF NO 

sINITIALIZE THE SUB-SYSTEM 
;CLEAR THE OMD BIT IN THE OPB 


SEQ 0146 


E12 

_ ( ae 
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TEST 16: FE CYLINDER WRITE AND WRITE CHECK TEST 


1 -SBTTL TEST 16: FE CYLINDER WRITE AND WRITE CHECK TEST 
2 
z FL SPAHMOASRASEAEREAESEEEAREEEEEREESEEAEEAEEEEEAROEAEEREEEEEEEAHECEESEEESEEAARERAEEEEERE 
4 ;THIS TEST EXECUTES WRITE-DATA SEQUENTIALLY FROM TRACK FT TO TRACK LT 
5 3ON THE FIRST FE CYLINDER WHICH IS ACCESSIBLE IN MAINTENANCE MODE. 
¢ “aes PARAMETERS ARE AS FOLLOWS: 
8 } THE FULL TRACK TRANSFER IS MADE IN 2 PASSES: 
9 3 1ST PASS, SECTORS: 00. THRU 24. 
10 F 2ND PASS, SECTORS: 25. THRU 49, 
il F 
12 3 STARTING TRACK = FT 
13 3 ENDING TRACK = LT 
14 3 INCREMENT TRACK = IT 
15 3 STARTING SECTOR = FS 
16 2 SSSAASAASEHESAALASALESESEEAEAREEEEEEESESASESEEEEEAAESLEDREEEEESEEAERESEESAEEEEEESE 
17 
18 036422 T16:: 
19 036422 004737 020400 JSR PC, ,RPINIT sINITIALIZE THE SUB-SYSTEM 
20 036426 113737 002664 002630 MOVB DRVNO,OTADPS sLOAD THE DRIVE ADDRESS 
21 036434 013737 002354 002634 MOV TRKWC ,.OTADPB+4 ;WORD COUNT = HALF TRACK 
22 036442 012737 042762 002636 MOV OOBUFF ,.DTADPB+6 ;BUFFER ADDRESS 
23 036450 113737 002212 002641 MOVB FT, .OTADPB+11 sFIRST TRACK 
24 036456 013737 002270 002642 MOV NC2,DTADPB+12 sFIRST FE CYLINDER W/O FIX H 
25 036464 012737 002754 002644 MOV @REG,OTADPB+14 ;SAVED RHXX/RPO7 REGISTER 
26 036472 105037 002631 CLRB OTADPB +1 ;CLEAR THE HCI 
27 036476 052737 100000 002630 BIS @0MD , OTADPB sSET THE MAINTENANCE MODE FLAG 
+4 036504 004737 012364 JSR PC, STOPCK sSTOP THE CLOCK 
30 036510 005037 002256 TEST16: CLR DOTWO sRESET 2 ITERATIONS Peete 
31 036514 105037 002640 CLRB OTADPB+10 sRESTART AT SECTOR O 
32 036520 013702 002224 MOV PAT ,Re sFILL THE DATA PATTERN 
33 036524 013703 002636 MOV OTADPB+6,R3 sBUFFER ADORESS 
34 036530 013704 002634 MOV DOTADPB +4 ,R4 sWORD COUNT 
35 036534 010223 1%: MOV R2,(R3)+ 
36 036536 005204 INC Ra 
37 036540 001375 BNE 1% sBRANCH IF PATTERN IS WRITTEN TO ALL BUFF LOC 
38 036542 716.1: 
036542 104402 RAP Cs6SuU8 
39 036544 112737 000105 002632 WRPAT: MOVB @SEEK,DTADPB+2 ;00 A SEEK FIRST 
40 036552 004437 015056 JSR R4,ORVCAL sSTART A DATA TRANSFER 
41 036556 L10105: 
036556 104403 TRAP CsESUB 
42 036560 716.2: 
036560 104402 TRAP CsBSUB 
43 036562 112737 000161 002632 MOvVB @WRTDAT ,OTADPB +2 sWRITE DATA COMMAND 
44 036570 004437 015056 JSR R4,ORVCAL sSTART A DATA TRANSFER 
4S 036574 112737 000151 002632 MOVB @WCKD.DTADPB+2 ;CHANGE TO WRITE CHECK DATA COMMAND 
46 036602 004437 015056 JSR R4 ,DRVCAL sSTART A DATA TRANSFER 
47 036606 L10106: 
036606 104403 TRAP CsESuB 
48 036610 005737 002256 TST DOTWO 3;DONE HALF TRACK TWICE? 
49 036614 100406 BMI 1% sYES, EXIT 2 ITERATIONS LOOP 
50 036616 005337 002256 DEC DOTWO 3NO, MARK 2ND ITERATION 
51 036622 112737 000031 002640 MOVS @25.,D0TADPB+10 ;TFR 2ND HALF OF TRACK 
S52 036630 000745 BR WRPAT 3LOOP TO TFR 2ND HALF TRACK 
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TEST 16: FE CYLINDER WRITE AND 


WRITE CHECK TEST 


002632 


002632 
002632 


002640 


002630 


1$: 


2$: 


3$: 


716.3: 
WRPATN: 
L10107: 
716.4: 


L10110: 


18%: 


EXIT16: 
L10104; 


DOTWO 
DTADPB+10 
PAT,R2 

R2 


DTADPB+6,R3 
R2,(R3)> 

R4 

3$ 

Cs$6SUB 

SEEK ,DTADPB+2 
R4,ORVCAL 


CsESUB 


C$B8SUB 
@WRTDAT ,OTADPB +2 


R4 ,ORVCAL 
@WwCKD ,DTADPB+2 
R4,ORVCAL 


CsESUB 
DOTWO 
1$ 


DOTWO 
#25. ,O0TADPB+10 
WRPATN 


OTADPB+11,R2 
IT,R2 
R2,OTADPB+11 
LT,R2 
TEST16 
@OMD , DTADPB 


CSETST 


sRESET PARAMETERS FOR 1ST LOOP 
sRESTART AT SECTOR O 
sCOMPLEMENT THE PATTERN 


sBUFFER ADDRESS 
sWORD COUNT 
sFILL THE BUFFER WITH COMPLEMENT DATA 


sBRANCH IF NOT DONE 


sSEEK COMMAND 
sSTART A DATA TRANSFER 


sWRITE DATA FIRST 
sSTART A DATA TRANSFER 
sCHANGE TO WRITE -CHECK 
sSTART A DATA TRANSFER 


sD0NE HALF TRACK TWICE? 
sYES, EXIT 2 ITERATIONS LOOP 
sNO, MARK 2ND ITERATION 

3TFR 2ND HALF OF TRACK 

s2ND ITERATION 


sUPDATE THE TRACK ADDRESS 


sRESET THE MAINTENANCE FLAG 


SEQ 0148 


CZRILBO 


TEST 17: 


ODF Swe 


10 


Gle 
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WRITE 


037010 
037010 
037014 
037020 


037022 
037026 


037162 


TEST 


013737 


-SBTTL TEST 17: WRITE TEST 


5 ESSERE AAEEEEEEEEEEEEEEEEEEEEREEEEREEEEEAREEEEHEEEEEREEEEEEREREEAEEEEREEREEEEEES 
sTHIS TEST EXECUTES WRITE + WRITE CHECK DATA ON EVERY TRACK OF STARTING 
sCYLINDER AND ENDING CYLINDER. AFTER EACH WRITE + WRITE CHECK OPERATION, 
‘wine ADDRESS IS UPDATE BY THE AMOUNT SPECIFIED IN THE “INCREMENT 

H w 


é 
sNOTE: CYLINDER 629. WILL NOT BE USED, IN ORDER TO PRESERVE THE BAD 
; SECTOR FILE DATA, 


i 
sTHE FULL TRACK TRANSFER IS MADE IN 2 PASSES: 
; 1ST PASS, SECTORS: 00. THRU 24, 
3 2ND PASS, SECTORS: 25. THRU 49, 


° 

3 THE PARAMETERS: 

3 STARTING CYLINDER 
; ENDING CYLINDER 

i STARTING TRACK 

: ENDING TRACK 

; INCREMENT TRACK 

; STARTING SECTOR 

H 


3S PESEEESEESEEASEESEEEESEEEEEEEEEEAEEEEEEEEEEESEEEEEEEEDREDO4E464444606464464648408644 


T17:: 
JSR PC,RPINIT sINITIALIZE THE SUB-SYSTEM 
TSTB WRTALL s0ID OPERATOR WANT TO WRITE ON MEDIUM? 
BNE 1$ 3;68R IF YES 
sNOTIFY OPERATOR THAT TEST WAS NOT RUN 
MOV LSTEST,-C(SP) 
MOV @WRTENM, -( SP) 
MOV $2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 06 ,SP 
CLR RO ;CLEAR RO FOR TRAP 


1%: MOVB DRVNO,DTADPB sORIVE ADDRESS 
MOV TRKWC ,OTADPB+4 ;HALF TRACK 
MOV @OBUFF ,OTADPB+6 ;BUFFER ADDRESS 


MOV C,OTADPB+12 sCYLINDER ss 
MOV @REG.DTADPB+14 ;THE SAVED REGISTER TABLE ADDRESS 
CLR DOTWO sRESET 2 ITERATION CONTROL 
MOV PAT ,R2 sPATTERN IN R2,FILL 
MOV DTADPB+6,R3 sBUFFER ADDRESS 
MOV OTADPB+4,R4 sTOTAL NUMBER OF WORD COUNT 
2s: MOV R2,(R3)+ sLOAD DATA PATTERN BUFFER 
INC R4 s INCREMENT WORD COUNT 


es sBRANCH IF NOT DONE 
JSR PC, STOPCK sSTOP THE CLOCK 

RS 31ST PASS FLAG 
T17.1: 

TRAP C$BSUB 


SEQ 0149 


CZRJLBO RPO7 FCTNL TEST 
TEST 


TEST 17: 


WRITE 


037164 
037172 
037174 
037200 
037206 
037212 
037220 
037224 
037224 
037226 
037232 
037234 
037240 
037246 


037250 
037254 
037260 
037264 
037270 
037274 
037276 
037302 


037330 


023727 


Hie 


MACRO VO4.00 1-DEC-83 12:59:38 PAGE 66-1 SEQ 0150 
002642 001165 TEST17: CMP DTADPB+12,0629. ;IS THIS THE LAST USER CYLINDER ? 
BNE 1$ ;BR IF NO 
002642 DEC DTADPB+12 sD0N‘T WRITE ON LAST USER CYLINDER 

000161 002632 1%: MOVB @WRTDAT ,DTADPB +2 sWRITE DATA COMMAND 
015056 JSR R4,ORVCAL sD0 THE WRITE COMMAND 
000151 002632 MOvVB @WCKD,DTADPB+2 ;00 THE WRITE CHECK COMMAND 
015056 sense JSR R4,ORVCAL 300 THE WRITE CHECK COMMAND 
TRAP CSESUB 
002256 TST DOTWO sDONE HALF TRACK TWICE? 
BMI 3$ sVES, EXIT 2 ITERATIONS LOOP 
002256 DEC DOTWO sNO, MARK 2ND ITERATION 
000031 002640 MOVB #25. ,DTADPB+10 :GET STARTING SECTOR FOR 2ND HALF OF TRACK 
2s; BR TEST17 sLOOP TO XFER 2ND HALF OF TRACK 
002256 3$: CLR DOTWO sRESET PARAMETERS FOR 1ST LOOP 
002640 CLRB OTADPB+10 sRESTART AT SECTOR O 
002641 4$: MOvVB DTADPB+11,R2 sUPDATE THE TRACK ADDRESS 
002216 ADD IT,R2 s INCREMENT BY THE SPECIFIED AMOUNT 
002214 CMP LT,R2 sOVER THE LIMIT ? 
BLO S$ sBRANCH IF SO 
002641 MOVB R2,OTADPB+11 sUPDATE THE TRACK ADDRESS 
BR TEST17 sLOOP BACK 
S$: TST RS :IS IT 2ND PASS? 
BNE EXIT17 YES, EXIT 
INC RS sNO, FLAG 2ND PASS 
002212 002641 MOVB FT, OTADPB+11 sRESET THE STARTING TRACK 
002206 002642 MOV LC,OTADPB+12 sUPDATE THE CYLINDER ADDRESS TO LC 
BR TEST17 sLOOP BACK 
EXIT17: 
L10111: 


TRAP CSETST 


Tie 
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TEST 18; RANDOM WRITE TEST 


OBANDYUS wtor 


037372 
037374 


037376 
037404 
037412 
037420 
037426 
037434 
037440 
037444 
037450 
037452 
037454 
037456 
037462 
037464 


013737 
113737 
012737 


002244 
002630 


-SBTTL TEST 18: RANDOM WRITE TEST 


iE EHPAERAAEEEEAEREREEEAEREEEEEEESERERAEEEREEEEEEOEEEEEEEEAEEEEEEEEEEEEEEEEEEEDS 
sTHIS TEST EXECUTES WRITE + WRITE CHECK DATA RANDOMLY; 

sIN THE PACK AREA BONDED BY THE (STARTING CYLINDER, ENDING CYLINDER) 

; CSTARTING TRACK, ENDING TRACK) 

; (STARTING SECTOR, ENDING SECTOR) 

3; THE TRANSFER SIZE IS ALWAYS EQUAL TO ONE SECTOR. 


i 

sIF THERE IS A P-CLOCK,THE PROGRAM PERFORMS AN ADDRESS MARK DETECTION TEST: 

sIT VERIFIES THAT DATA CAN BE WRITTEN CORRECTLY WITHIN THE SAME DISC REVOLUTION 
sAS A SECTOR DETECTION. SEARCH FOR THE SECOND LOGICAL SECTOR PRECEDING THE 
sSELECTED SECTOR TO WRITE, THEN WRITE THE SELECTED SECTOR. TIME THE SEARCH 
sDONE-WRITE DONE TO BE WITHIN A DISC REVOLUTION. FLAG LOST REVOLUTIONS. 


; 
sNOTE: CYLINDER 629. WILL NOT BE USED, IN ORDER TO PRESERVE THE BAD 
: SECTOR FILE DATA. 


‘ 
;PARAMETERS: 
; STARTING CYLINDER 

; ENDING CYLINDER 

; STARTING TRACK 

; ENDING TRACK 

; STARTING SECTOR 

; ENDING SECTOR 

; PATTERN 

i EPOREPAAEEEEEEESESEEEEERESEEEDAEEEEEEEEEEEEAEEEEEEEEEEEEEEEEEEDEEEEEDREEEEEEEES 


T18:: 
JSR PC ,RPINIT sINITIALIZE THE SUB-SYSTEM 
TSTB WRTALL ;D0ID OPERATOR WANT TO WRITE ON MEDIUM? 
NE i$ 3;BR IF YES 
sNOTIFY OPERATOR THAT TEST WAS NOT RUN 
MOV LSTEST, -(SP) 
MOV @WRTENM, -( SP) 


ADD 

CLR RO sCLEAR RO FOR TRAP 
TRAP CsExIT 

«WORD 1L10115-. 


1%: MOV XTIMES, ITCNT sSET ITERATION COUNT 
MOVB DRVNO,OTADPB sYES, PROCEED: SET UP THE PAPAMETERS 
MOV @-256.,DTADPB+4 ;WORD COUNT SET TO ONE SECTOR 
MOV @OBUFF ,DTADPB+6 ;BUFFER ADDRESS 
MOV @REG,DTADPB+14 =; THE CSS RAPES REGISTER TABLE 


MOV DTADPB +4 ,R2 sWORD COUN 
MOV DTADPB+6,R3 sBUFFER ADDRESS 
MOV PAT,R4 sPATTERN 
2s: MOV R4,CR3)+ sFILL THE BUFFER WITH DEFAULT PATTERN 
INC R2 sINCREMENT THE WORD COUNT 
BNE 2s sLOOP IF NOT DONE 
TST CLKSTA sP-CLK PRESENT? 
BGT TST18A sYES, EXEC RAND WRT TST + AD MRK DET TST 


JSR PC,RPINIT sINITIALIZE THE SUB-SYSTEM 


SEQ 0151 


Jle 
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TEST 18: RANDOM WRITE TEST 
54 
55 037470 004737 012364 — JSR PC, STOPCK sSTOP THE CLOCK 
56 037474 004437 017716 1$ JSR R4,RANADR sGENERATE THE RANDOM STARTING ADDRESS 
57 sMAKE SURE YOU DON’T WRITE IN THE BAD SEC FILE 
58 037500 123727 002641 000037 CMPB OTADPB+11,031. ;IS THIS THE LAST TRACK ? 
59 037506 001004 BNE 2s ;BR IF NO 
60 037510 023727 002642 001165 CMP DTADPB+12,0629. ;IS THIS THE LAST USER CYLINDER ? 
61 037516 001766 BEG 1$ ;B8R IF YES 
62 037520 105737 002234 2s: TSTB RANPAT sSELECT RANDOM PATTERN ? 
63 037524 001413 BEQ 5$ sBRANCH IF NOT 
64 037526 013702 002634 MOV DTADPB +4 ,R2 sWORD COUNT 2'S COMPLEMENT 
65 037532 013703 002636 MOV DTADPB+6,R3 sBUFFER ADDRESS 
66 037536 004737 011712 3$: JSR PC,RAND sGERERATE NEW RANDOM NUMBER 
67 037542 013723 011774 4$: MOV $RP1,(R3)+ sFILL THE BUFFER WITH RANDOM PATTERN 
68 037546 062702 000001 ADD #1,R2 sFINISH ? 
69 037552 100773 BMI 4$ ;LOOP BACK , IF NOT DONE 
70 037554 S$: 
037554 T18.1: 
037554 104402 TRAP C$BSUB 
71 037556 112737 000161 002632 MOVB @WRTDAT ,DTADPB+2 300 A WRITE DATA 
72 037564 004437 015056 JSR R4,DORVCAL 
73 037570 112737 000151 002632 MOVB @WCKD, DTADPB+2 ;D0 A WRITE CHECK DATA 
74 037576 004437 015056 JSR R4, DRVCAL 
75 037602 L10114: 
037602 104403 TRAP CSESUB 
76 037604 005337 002244 DEC ITCNT ;DONE ITERATIONS ? 
77 037610 001327 BNE TEST18 ;BR IF NO 
78 037612 EXxIT18: 
037612 104432 TRAP CSEXxIT 
a 037614 001360 -WORD 1L10113-. 
‘9 
80 037616 004437 015612 TST18A: JSR R4,SRCHOO sMASS BUS INIT & RECAL 
81 037622 000402 BR 1% sNO RECAL ERROR, CONTINUE 
82 037624 000137 041146 JMP xIT18 sEXIT ON RECAL ERROR 
83 037630 004737 015742 1%: JSR PC,STRTMR sINIT THE TIMERS 
84 037634 042777 000101 152360 BIC #101, @PKCS ;STOP THE P-CLOCK 
85 ;SETUP VECTOR IN CASE OF CLOCK OVERFLOW 
86 037642 012746 000300 MOV OPRIO6, -C SP) 
037646 012746 1 MOV @T180FL,-(SP) 
037652 013746 012230 MOV PKV,-CSP) 
037656 012746 00000 MOV @3,-CSP) 
037662 104437 TRAP CsSVEC 
037664 062706 000010 ADD #10,SP 
87 sSETUP RHXX/RPO7 VECTOR 
88 037670 012746 000000 MOV OPRIOO, -CSP) 
037674 012746 015740 MOV @OORTI, -(SP) 
037700 013746 002654 MOV RPVEC, -(SP) 
037704 012746 000003 MOV @3,-(SP) 
037710 104437 TRAP CsSVEC 
037712 062706 000010 ADD #10,SP 
89 037716 005005 CLR RS sSET COUNT-UP FLAG FOR COUNT SUBR 
= 037720 005037 002240 CLR TEMPO sCLEAR TEMPORARY LOST REVOLUTION COUNT 
92 037724 105737 002234 TST18B: TSTB RANPAT sSELECT RANDOM PATTERN ? 
93 037730 001413 BEQ 2s sBRANCH IF NOT 
94 037732 013702 002634 MOV DTADPB+4,R2 sWORD COUNT 2'S COMPLEMENT 


95 037736 013703 002636 MOV DTADPB+6,R3 sBUFFER ADDRESS 


rn 5 


Ki1e2 
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96 037742 004737 011712 JSR PC ,RAND sGERERATE NEW RANDOM NUMBER 

97 037746 013723 011774 1$: MOV $RP1,(R3)+ sFILL THE BUFFER WITH RANDOM PATTERN 

98 037752 062702 000001 ADD #1,R2 sFINISH ? 

m4 037756 100773 BMI 1$ sLOOP BACK , IF NOT DONE 

101 sREDUCE THE TARGET SECTOR BY 2, TO COMPUTE THE VALUE OF THE 2ND LOGICAL 

sos sSECTOR. 

104 037760 004437 017716 2s: JSR R4,RANADR sGEN A RAND ADR: CYL, TRK, SEC 

105 sMAKE SURE YOU DON'T WRITE IN THE BAD SEC FILE 

106 037764 123727 002641 000037 CMPB DTADPB+11,%31. ;IS THIS THE LAST TRACK ? 

107 037772 001004 BNE 3$ sBR IF NO 

108 037774 023727 002642 001165 CMP OTADPB+12,%629. ;IS THIS THE LAST USER CYLINDER ? 

109 040002 001766 BEQ es ;BR IF YES 

110 040004 113701 002640 3$: MOVB DTADPB+10,R1 iGET TARGET SECTOR ADDRESS TO WRITE AND 

111 049010 010137 002254 MOV R1, TRGSEC sSAVE IT FOR LATER 

112 040014 032777 000004 142660 BIT @ILV,@RPDS ;IS INTERLEAVED SECTOR ENABLED ? 

113 040022 001006 BNE S$ ;BR IF YES 

114 040024 162701 000002 SUB =" R1 sBACKUP THE SECTOR ADDRESS FOR THE SEARCH 

115 040030 002002 BGE ;BR IF < SECTOR O 

116 040032 062701 000062 ADD 250. oR1 sADJUST FOR THE ADDRESS BEFORE SECTOR 0 

1h 040036 000411 4$: BR sEXIT 

119 040040 005701 S$: TST R1 :IS IT SECTOR ADDR O ? 

120 040042 001405 BEQ 6% ;BR IF YES 

121 040044 162701 000031 SUB #25.,R1 sIS IT SECTOR ADOR 25 ? 

122 040050 001002 BNE 6% ;BR IF NO 

123 040052 062701 000031 ADD #25.,R1 sADJUST FOR THE ADDRESS BEFORE SECTOR O 

04 040056 062701 000030 6%: ADD #24.,R1 sREODUCE THE TARGET SECTOR BY 2 

126 sPREPARE TO SEARCH 

127 040062 7$; 

040062 718.2: 
040062 104402 TRAP C$BSUB8 

128 040064 010137 002252 MOV R1, SRHSEC sSAVE SEARCH SECTOR FOR LATER 

129 040070 013777 002642 142626 MOV DTADPB+12,@RPOC ;CYL 

130 040076 110146 MOVB R1,-CSP) sMERGE SECTOR 

131 040100 113766 002641 000001 MOVB DTADPB+11,1¢SP) ;AND TRK 

132 040106 012677 142564 MOV (SP )+,@RP DA ;LOAD TRK/SEC 

133 040112 013777 002634 142552 MOV DTADPB+4,QRPWC ;WRITE 1 SECTOR 

134 040120 013777 002636 142546 MOV DTADPB+6,SRPBA ;SET DATA BUFFER ADR 

135 040126 012703 002502 MOV #71418 ,R3 sTIMING LIMITS FOR COUNT SUBR 

4 040132 012777 000006 152064 MOV 06 , 8PKB sALLOW > 6 REVOLUTIONS PER SEARCH: 

138 33 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 

148 33 FOR WORST CASE SEARCH(SECT CMP ERR OR HOR CRC ERR) 

141 040140 012777 000105 152054 MOV #105, @PKCS sSTART P-CLOCK: IE=1,COUNT DOWN,LINE FREQ 

142 040146 012777 000131 142514 MOV @SEARCH,@RPCS1 ;START A SEARCH 

143 040154 000001 WAIT sWAIT ON INTERRUPT 

144 040156 017746 152044 MOV @PKC, -C SP) : SAVE THE CLOCK 

145 040162 042777 000101 152032 BIC #101, 8PKCS sSTOP THE CLOCK 

146 040170 012677 152030 MOV CSP )+,@PKB sAND RESTORE THE COUNTED VALUE 

147 040174 032777 040000 142500 BIT #B1T14,@RPOS FERROR? 

148 040202 001534 BEQ 718118 sNO- -BRANCH 

149 040204 004737 010750 JSR PC, SAVREG ssSAVE RO-RS 


040210 012702 002630 MOV @DTADPB ,R2 s0PB POINTER 


CZRJLBO 


TEST 18: R 


156 


178 


012737 
012777 


012777 
012777 
00000 


012777 
012777 


142452 
142444 


002264 


002350 
151664 


151654 
142314 
151632 
142300 


142266 
142260 


000004 
041112 


002640 142174 
151516 

000161 142154 
000121 151500 


Kile 
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JSR PC, SVRHXX 
MOV #CLR,@RPCS2 
MOV DTADPB , ARPCS2 
JSR PC ,RESREG 
JSR RS,ERRANY 
DTADPB 

L10115: 
TRAP CSESUB 
BIT OBIT3!BIT7,SVSTAT 
BNE 8$ 
MOV @SEAERR, -( SP) 
MOV #1 = SP ) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 


MOV @ABOTST, -C( SP) 
MOV #1,-(SP) 
MOV SP,.RO 


TRAP CSPNTF 

ADO #4, SP 

JMP T18ENOD 
8$: MOV #16. ,WCEFLG 
9%: MOV 6 , PKB 


sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT ORIVE 

ssRESTORE RO-RS 


sFIND OUT WHAT ERROR 


sRETRY ALLOWED ? 
s;BRANCH IS SO 


sRETRY 16 TIMES 
sALLOW > 6 REVOLUTIONS PER SEARCH: 


33 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS) 
33 FOR WORST CASE SEARCH (SECT CMP ERR OR HDR CRC ERR) 


MOV #105, @PKCS 
MOV @SEARCH, @RPCS1 


MOV OTADPB , ARPCS2 
DEC WCEFLG 
BNE 9% 
MOV @SEABAD, -( SP) 
MOV #1,-CSP 
MOV P,RO 
TRAP zs SPNTF 
ADD 04 ,SP 
MOV @ABOTST, -(SP) 
MOV 1, -¢ 
MOV SP RO 
TRAP CSPNTF 
ADD 04 ,SP 
JMP T1L8END 
718.3: 
TRAP CsBSUB 
716118: ve! or ce eek®, Gren 


oP 
MOV @WRTDAT ,@RPCS1 
MOV $121,@PKCS 


sSTART P-CLOCK:IE,COUNT DOWN,LINE FREQ 
sSTART A SEARCH 

sWAIT ON INTERRUPT 

; SAVE THE CLOCK 

sSTOP THE CLOCK 

sAND RESTORE THE COUNTED VALUE 
sERROR? 

sEXIT IF NONE 

sMASSBUS CLEAR 

sORIVE ADDRESS 

sOVER RETRY LIMIT ? 

sBRANCH IF NOT 


sOTHERWISE EXIT 


sSET TRK/SECT TO WRITE 

sCLEAR P-CLK BUFFER COUNT 

sSTART A WRITE 

sSTART THE CLOCK: IE=1,UP,SINGLE,10US 


SEQ 0154 


Mie 
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151476 


000010 
037724 


012426 


151464 
142132 


142104 


142076 


002264 


002632 


002240 


002250 


L10116: 


T1812$: 


10000$: 


18%: 


T180FL: 


aPKC, -CSP) 
#101,8PKCS 
(SP)+,8PKB 
#BIT14,@RPDS 
T1812 

PC, SAVREG 
@DTADPB ,R2 
PC , SVRHXX 
CLR ,@RPCS2 
DTADPB , ARPCS2 
PC,RESREG 
RS,ERRANY 


CsESUB 
#BITS,SVSTAT 
T1812$ 
@POSERR, -( SP) 
#1,-(SP) 

sP 


R4,ORVCAL 


CSESEG 
} seeteasiis » TEMPO 


1 
TEMPO 
CSERDF 
S2 
EMS2 
OHS2 


TIM.UP+14,XTIMES 
T18END 


RPVEC+2, -C(SP) 


PC ,FORSEC 


sWAIT ON INTERRUPT 

sSAVE THE CLOCK 

sSTOP THE CLOCK 

sAND RESTORE THE COUNTED VALUE 
sERR=1? 

3NO- -BRANCH 

3sSAVE RO-RS 

;0PB POINTER 

;SAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

;SELECT ORIVE 

3; sRESTORE RO-RS 

sF IND OUT WHAT ERROR 


sPOSITION ERROR? 
sNO, CONTINUE 


sCOUNT TIME SEARCH DONE-WRITE DONE 


300 A WRITE CHECK DATA CMD 
300 RECALIBRATE 
sANY LOST REVOLUTIONS ? 


sBRANCH IF NO 
sUPDATE TEMPORARY LOST REVOLUTION COUNT 


sSETUP RHXX/RPO7 VECTOR 
sREPEATED 1024 TIMES? 

sYES, CONCLUDE TEST 

sSETUP RHXX/RPO7 VECTOR 


s CONTINUE 
sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD 


SEQ 0155 


ek Boe no 


Nie 
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218 
219 


220 041020 


012777 
013777 
004737 


004437 


TEST 


141636 
141630 


002276 
002302 
002300 


141560 
141552 


T18END: 


TST18C: 


xIT16: 


L10113: — 
T 


DTADPB 
14(R1),R2 
36(R2),CYL.RO 
6(R2),SEC.RO 
7(R2), TRK.RO 


@CLR,@RPCS2 
DTADPB, BRPCS2 
PC,ST.CLK 


R4,TYPTIM 
R4,SPTYP 


RPVEC+2, -( SP) 
SR ) 


CsETST 


sDROP THE PRIORITY 


3;SAVE RO-RS 

s0PB POINTER 

sSAVE ALL THE RHXX/RPO7 REGISTERS 
sMASSBUS CLEAR 

sSELECT ORIVE 

sADDRESS OF SAVED — TABLE 
sGET CURRENT CYLINDE 

3GET CURRENT SecToR’ 

sGET CURRENT TRACK 

:sRESTORE RO-RS 


sCLEAR THE MASSBUS 
3€ SELECT ORIVE 
sINITIALIZE THE CLOCK 


;GO TYPE THE TIMES 
sPOINTER 


sSETUP RHXX/RPO7 VECTOR 
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000022 


000031 
041244 
160000 
177777 


001031 
041257 
000000 


000377 


B14 


- TITLE PARAMETER CODING 
.SBTTL HARDWARE PARAMETER CODING SECTION 


. 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 


INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 


-WORD L10117-L$HARD/2 


L$SHARD:: 


. WORD 
. WORD 
. WORD 
. WORD 


S553 35555 555 


m 
S 
m 
4 


10117; 


T$CODE 
MESG1 
TSLOLIM 
TSHILIM 


TSLOLIM 


TSLOLIM 
TSHILIM 


T $CODE 
- es 
TSLOLIM 
TSHILIM 


7RPCS1 ADRS/ 
/VECTOR ADRS/ 
/BR LEVEL/ 
/DRIVE 0/ 


sPRINT 


sPRINT 


;PRINT 


;PRINT 


s¢ 

3 

; 

; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; 

; 

a 

é 


‘RPCS1 ADRS?: 


‘VECTOR ADRS?' 


‘BR LEVEL?’ 


‘DRIVE ?° 


SEG 0157 
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ODN Nhinlur 


27 
28 


$B 


Ci 


r 
J 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


*¢ 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


«WORD L10120-L8SOFT/2 


. WORD 
. WORD 


+ 


5555 


S550 S553 S5883 55583 55583 5 


T$CODE 
PARMSG 
1 


TSCODE 


T$COOE 
FCMSG 
1777 
TSLOLIM 
TSHILIM 


TS$COOE 
LCMSG 
1777 


TSLOLIM 
TSHILIM 


TSLOLIM 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
ITMSG 
37 


TSLOLIM 
TSHILIM 


TSCODE 


3 
3 
i 
a 
s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
a 
3 
‘ 


sPRINT ‘CHANGE DRIVE PARAMETERS?’ 


sGO TO 1% IF NO 


sPRINT ‘STARTING CYL?° 


sPRINT ‘ENDING CYL?’ 


sPRINT ‘INCREMENT CYL?’ 


sPRINT ‘STARTING TRK?" 


sPRINT ‘ENDING TRK?' 


sPRINT ‘INCREMENT TRK?' 


sPRINT ‘STARTING SEC?’ 


5EQ 9158 
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ST?’ 


S1 


S2 
53 


041424 
041426 
041430 
041432 


041434 
041436 
041440 
041442 
041444 


041446 
041450 
041452 
041454 
041456 
041460 


041460 
041462 
041464 


041466 


041526 


56 
NG TESTS?’ 


57 


58 
59 
60 


041534 
041536 
041540 


041542 
041544 
041546 


041726 
000077 
000000 
000060 


000000 
177777 


014120 
042000 
000400 


007044 


18; 


2s: 


S55 255 555 555 555 955 G58 558 


T$LOLIM 
TSHILIM 


TSCODE 
LSMSG 
77 
TSLOLIM 
TSHILIM 


T$CODE 
PATMSG 
177777 
T$LOLIM 
TSHILIM 


T $CODE 
WRITMG 
400 


TSCODE 


T$CODE 
WRSAFM 
400 


T$CODE 
RPATMG 
1 


T$CODE 
ROHOMG 
1 
TSCODE 
TIMMSG 
400 
T$CODE 


STOMSG 
400 


TS$CODE 
ahha 


sPRINT 


sPRINT 


sPRINT 


SEQ 9159 


‘ENDING SEC?’ 


‘DATA PATTERN?’ 


‘DO YOU WANT TO WRITE ANYWHERE ON MEDIA?’ 


3GO TO 2$ IF NO 


;PRINT 


‘! CUSTOMER DATA WILL BE OVERWRITTEN ! 


; CONTINUE?’ 


sPRINT 


;PRINT 


sPRINT 


sPRINT 


;PRINT 


sPRINT 


:GO TO 


"USE RANDOM DATA PATTERNS FOR RANDOM WRITE TE 


‘PERFORM READ HEADER € DATA DURING SEEKS?’ 


‘TYPE TIME REPORTS?’ 

‘INHIBIT SOFTWARE TIMEOUTS?’ 

‘TIMING TESTS, STALL BETWEEN SEEKS: RANDOM IN 
‘STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMI 
3$ IF NO 
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041550 
041552 


042405 
042501 
042566 


042616 


042762 
073762 


074762 
074764 
074766 


000001 


075002 
000006 


12:59; 38 


3%: 


L10120: 


PARMSG: 
FCMSG: 


$PATCH:: 


DBUFF:: 


LSLAST:: 


PAGE 69- 


-EVEN 
-BLKW 


-BLKW 
.BLKW 


-EVEN 


/CHANGE DRIVE PARAMETERS/ 

7STARTING CYL/ 

ENDING CYL/ 

ZINCREMENT CYL/ 

/STARTING TRK/ 

ZENDING TRK/ 

7 INCREMENT TRK/ 

“STARTING SEC/ 

ZENDING SEC/ 

/DATA PATTERN/ 

700 YOU WANT TO WRITE ANYWHERE ON MEDIA/ 

<BELL>/ ! CUSTOMER DATA WILL BE OVERWRITTEN !/<CR><LF> 
<BELL>/ ------------------------------------- /<CR><LF> 
/CONTINUE/ 

/USE RANDOM DATA PATTERNS FOR RANDOM WRITE TEST/ 
/PERFORM READ HEADER € DATA DURING SEEKS/ 

/TYPE TIME REPORTS/ 

/INHIBIT SOFTWARE TIMEOUTS/ 

/TIMING TESTS, STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC/ 
/STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMING TESTS/ 
/USE RANDOM STALL TIMES/ 


SO. sPROGRAM PATCH AREA (50. WORDS) 


256.425. ;DATA BUFFER FOR HALF A TRACK 
256. sONE SECTOR EXTRA FOR MID-TRANSFER SEEK TEST 


-WORD TSFREE 


-WORD T$ 


SIZE 


SEQ 9160 
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074772 L10121: 


21 075002 L10123;: 
23 000001 - END 


PAGE 70 


Fis 


0 
L10123-./2-1 


176700 
254 
240 

i) 


SEQ 0161 


ne ne = rr eee —) 


PARAMETER _—— MACRO VO4.00 1-DEC-83 
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SYMBOL TAB 
ABOPAS 015406 CI7 022536 
ABORT 026334 cI78 022552 
ABOTST 004614 G cI8 022624 
ACTORV 020354 CLKSTA 902260 
ACTSTR 020355 CLR = 0 
ADJUST 014322 CLRQUE 025350 
= 000020 G ° i 
A = 001000 G CONTIN 026276 
ASSEMB= 000010 COUNT 016212 
ATA #1 G COUNT2 016012 
ATABIT 002744 G CR . 15 
AVERAG 017266 CRLF 003064 
AVERGE 005010 G CYL.0S 002304 
AVGVAL 017347 CYL.RD 002276 
Al6 = 00 G CsAU_ = 000052 
Al7 == 001000 G CSAUTO= 000061 
BELL = 000007 G CS8BRK = 000022 
BITS 002362 G CS8BSEG= 000004 
BITO = 000001 G C$BSUB= 000002 
BITOO = 000001 G CS8CEFG= 000045 
BITO1 = 000002 G CSCLCK= 000062 
BITO2 = 000004 G CSCLEA= 000012 
BITO3 = 000010 G CS8CLOS= 000035 
BITO4 = 000020 G CSCLP1= 000006 
BITOS = 000040 G CS8CVEC= 000036 
BITO6 = 000100 G CSDCLN= 000044 
BITO7 = 000200 G CsD00U= 000051 
BITO8 = 000400 G CSDRPT= 000024 
BITO9 = 001000 G CsO0U_ = 000053 
BIT1 = 000002 G CSEDIT= 000003 
BIT10 = 002000 G CSERDF= 000055 
BIT11 = 004000 G CSERHR= 000056 
BIT12 = 010000 G CSERRO= 000060 
BIT13 = 020000 G CSERSF= 000054 
BIT14 = 040000 G CSERSO= 000057 
BIT1S = 100000 G CSESCA= 000010 
BIT2 = 000004 G CSESEG= 000005 
BITS = 000010 G CSESUB= 000003 
BIT4 = 000020 G CSETST= 000001 
BITS = 000040 G CSEXIT= 000032 
BIT6 = 000100 G CSGETB= 000026 
BIT7 = 000200 G C8GETW= 000027 
BIT& = 000400 G CSGMAN= 000043 
BIT9 = 001000 G CS8GPHR= 000042 
BOE = 000400 G C&8GPLO= 000030 
SE = 100000 G $GPRI= 000040 
BYPASS 002262 G CSINIT= 000011 
CALL.A 014374 CSIN.P= 000020 
CALL.B 014512 CéMANI= 
CALL.C 014674 CS8MEM = 000031 
Cc 002236 C8MSG = 000023 
CHKAVG 017634 CSOPEN= 000034 
cI1 021630 CSPNTB= 000014 
cI3 022014 CSPNTF= 000017 
C14 022126 CSPNTS= 000016 
cIs 022452 CSPNTX= 000015 
cI6é 022474 CsQIO = 000377 


12:59:38 PAGE 70-1 


ag 


ana 


C$ROBU= 
CSREFG= 
CSRESE= 


666 
020310 
020320 


OHHOHHOO AHH HOHOOHOOHHHHHHHHAHHHHAHHHHAAAHHHAH 


G14 


DSNMSG 004403 
DTADPB 002630 


DVA = 004900 
DvC == 000200 
ECH * 000100 

= 004000 


ERR = 040000 
ERRABO 015214 


HHHOOOHHOHOOHHHHHHHHHHHHHHHHHHHAHHHHHHHHHHAAHHHA ABDHOHAHAHAHAAH Aan 


SEQ 0162 


ERRANY 012766 


n 
= 
2 
r) 
g 
o 
w 
aa 


GETREG= 000141 G 
GETREQ 025526 


Ee 


PARAMETER C 
SYMBOL TABL 


GSCNTO= 


ISRPT = 


ang ann 


aD AHHHHHH 


I$SEG 


— MACRO VO04.00 1-DEC -83 


g 
: 
an 


8 
o 


°o ; 
HAHHOHOOHOOHOHHHHHAHAHHHAHHAHAAHAAHA 


L$LAST 
L $LOAD 
L$LUN 
LS$MREV 
L $NAME 
L$PRIO 
L$PROT 
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074766 


030110 


Hit 


DHOHHHHHOHHHHHHHAHHHHMH 


030120 


017362 
005221 G 


MSGMAX 
MSGMIN 


017313 


w 
ray 
- N 
OH HHAHO AHOAAHAHAHHHHAHAAGA 


an 


° 
AHHHHHHH oO 


SEQ 0163 
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SYMBOL TABLE 
PRIO6 = 000300 G RPLA 002710 G STALMG 042501 TST13 ©034550 T$$SW = 010001 
PRIO7 = 000340 G RPMR1 002714 G STALRD 002232 TST14A 034736 T$$TES= 010113 
PSTACK 011666 RPOF 002722 G STALRM 042566 TST1S §©036312 T1 026762 G 
QCNT 025056 RPSN 002720 G STLTIM 042405 TSTI8A 037616 T1.1 027006 
QDRVO 025150 RPSTUO 020200 STO 024200 TST18B 037724 T10 033130 G 
QDRV1 025170 RPSTU1 020210 STOFLG 002233 TST18C 041132 710.1 033250 
QDRV2 025210 RPSTU2 020220 STOMSG 042353 TWOMS 012552 T10.1$ 033252 
QORV3 025230 RPSTU3 020230 STOPCK 012364 TYPTIM 016504 710.2 033416 
QORV4 025250 RPSTU4 020240 STRTMR 015742 TYTIME 002242 G 710.2% 033404 
QORVS 025270 RPSTUS 020250 ST.CLK 012000 TSARGC= 710.3% 033572 
QDRV6 025310 RPSTU6 020260 ST.LCL 012320 TSCODE= 013130 710.4% 033550 
QORV7 025330 RPSTU7 020270 ST.PCL 012246 TSERRN= 000024 T10.7$ 033614 
QINPT 25066 RPTMR 024104 SVCGBL= 000000 TSEXCP= 710.8% 033720 
QOUTPT 025106 RPVEC 002654 G SVCINS= 000000 TS$FLAG= 900040 Til 034004 G 
QSTART 025126 002672 G SVCSUB= 000000 TSFREE* 075002 T11.1 034100 
QSTOP 025130 RPO7 021122 SVCTAG= 000000 T $GMAN= T11.2$ 034102 
QTERP = 025350 RTC = 117 G SVCTST= 000000 TSHILI= 177777 T11.5$ 034156 
RANADR 017716 RWU1 = 002000 G SVRHXX 024644 TSLAST= T12 034210 G 
R 011712 RWU2 =» 004000 G SVSTAT 002264 G TSLOLI= T1l2.1 034300 
RANPAT 002234 RWUS_ = 010000 G S$LSYM= 01 TS$LSYM= 010000 T12.2 034354 
RDDAT = 000171 G SAVREG 010750 023116 T$LTNO= T13 034436 G 
RDHD = 000173 G Cc 023304 TEMPO 002240 G TS$NEST= 177777 713.1 034514 
RDHOMG 042261 SCTRWC= 177400 G TEST1 026770 T$NSO = 000000 T13.1$ 034616 
RDTD = 000175 G SC11 023612 TEST10 033160 T$NS1 = 000005 T13.2 034556 
RDY = 000200 G sci2 023702 TEST13 034450 T$NS2 = 000003 T14 ie) G 
RD.RP 024426 SC13 023766 TEST14 034710 TS$PCNT= 714.1 034714 
READIN= 000121 G sc3 023354 TESTIS 036162 TS$PTAB= 010122 714.1% 035044 

CAL = 000107 G Ssc4 023360 TEST16 036510 TSPTHV= 1 714.2 035126 
REDHDR 002226 scs 023372 TEST17 037164 TS$PTNU= 714.3 035534 
REG 002754 G Ssc6 023534 TEST18 037470 TSSAVL= 177777 714.7% 035754 
RELSE = 000113 G scs 023562 TESTS 027162 TS$SEGL= 177777 T14.8$ 036060 
RESREG 011002 SOF = G TEST4 027414 T$SEKO= 010000 T1410$ 035126 

Vv G SEABAD 004550 G TESTS 027636 TSSIZE= T1411%$ 035536 
RHEXT 002660 G SEAERR 004511 G TEST6 T$SUBN= T1412$ 035712 
RHTYPE 002662 G SE = 000131 G TEST? 030176 TSTAGL= 177777 T1418 002502 G 

ad G SEC.DS 002306 G TEST& 031252 TS$TAGN= 010124 T15 036144 G 

ROTATE 004674 G SEC. 002302 G TEST9 032242 TSTEMP= T15.1 036272 
RPADR 002652 G SEEK = 000105 G TICKMS 012214 TSTEST= T15.2 036310 
RPAS 002706 G SETFOR= 000147 G TICKUS 012216 TS$TSTM= 177777 T15.3 036370 
RPATMG 042202 SET.IE 0 TIMER 020356 TSTSTS= 000001 T16 036422 G 
RPBA 002674 G SFPTBL G TIMMSG 042331 T$$AU = 010021 T16.1 036542 
RPBAE 002740 G SIZE70 011034 TIMSTL 002230 TS$AUT= 010016 T16.2 036560 
RPCC 002726 G SKI» G TIMTYP 002227 TS$$CLE= 010017 716.3 036666 
RPCS1 002670 G SNDIGT 004427 G TIMT10 002452 G TS$$DAT= 010123 T16.4 036704 
RPC 002700 G SPTYP 016354 TIMT11 002462 G T$$0U = 010020 T17 037010 G 
RPCS3 002742 G SP10 G TIMT12 002472 G TS$HAR= 010117 117.1 037162 

A 002676 G SP11 002526 G TIM.ON 002330 G T$$HW = 010000 T18 037332 G 
RPOB 002712 G SP12 002534 G TIM.PT 002346 G TS$$INI= 010015 T18END 041112 
RPOC 002724 G SP1418 002542 G TIM.UP 002312 G T$$MSG= 010005 T18OFL 041006 
RPDS 002702 G SP7 002512 G TRE = G T$$PC = 000001 718.1 037554 
RPOT 002716 G SRCHWT 020352 TRGSEC 002254 G T$$PRO= 010014 T18.2 040062 
RPEC1 002734 G SRCHOO 015612 T 002354 G TS$$PTA= 010122 T18.3 040472 
RPEC2 002736 G SRHSE 2 G TRK.DS 002310 G TS$$RPT= 010013 T1811$ 040474 
RPER1 002704 G STALL 015410 TRK.RD 002300 G T$$SEG= 010000 T1812% 040650 
RPER2 002730 G STALLF 002231 TRNSWT 020350 T$$SOF= 010120 T2 027032 G 
RPER3S 002732 G STALL1 002356 G TST12 034330 T$$SRV= 010012 T2.1 027054 


RPINIT 020400 STALL2 002360 G TST12A 034404 T$$SUB= 010116 T2.11 027054 


J13 


PARAME TER ¥ eo MACRO VO4.00 1-DEC-83 12:59:38 PAGE 70-4 


SYMBOL. TABL 

T2.2 027110 T6 
T2.21 027110 T6.1 
3 027140 G T6.11 
T3.1 027244 16.2 
T3.11 027246 17 
13.2 027254 T7A 

T4 027372 G T7.1 
14.1 027460 17.18 
T4.2 027470 77.10% 
TS 027606 G T7.2 
TS.1 027650 T7.2$ 
TS.11 027652 T7.20$ 
TS.2 027660 T7.3$ 
™5.3 027722 77.44% 
™5.31 027724 T7.7$% 
™5.4 027732 17.8% 
™S.5 027774 T8 
™.51 027776 T8.1 
™5.6 030004 78.1% 
- ABS. 075002 000 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY AVAILABLE FOR 


030036 
030102 
030104 
030112 
030144 
002442 
030312 
030314 
030440 
030616 
030620 


031376 


G 


an 


30464 WORDS ( 119 PAGES) 
71 PAGES 


631762 
031412 
031546 
031604 
031560 
031570 
031310 
031774 
032022 


032644 
032710 


»CZRILB/C=[20,0)SVC34R .MLB,[20,12)CZRILB.DOC,CZRJLB.HIS,CZRULB 


033042 
000200 
002650 
040000 


042047 
002235 


AHOHHAGA AHHOHoH 


WRTDAT= 
WRTENM 


000040 
000400 
000020 
011176 
011420 
042616 
011772 
011774 
011776 
017714 


a ann 


SEQ 0165 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-1 
CROSS REFERENCE TABLE (CREF Vv04.00 ) 


$$$MFG 
$$FLG 


2-16 2-29 
33-31 33-35 
22-25¢@ 32-84 
23-14@ 32-77 
69-111 
25-10* 25-13 
25-8 25-156 
25-14 25-18 
12-7¢ 21-31 
12-8¢ 21-31 
30-45@ 44-11 
44-35 44-930 
18-678 56-61 
35-1040 36-146 
35-1108 38-204« 
27-24 28-60 
11-57¢@ 

12-88@ 27-111 

7-278 7-278 
12-740 
17-380 36-113 
33-65 33-66 
14-168 18-720 
33-66 33-940 
18-14 69-88 
11-57@ 24-14 
11-57 11-576 
11-57 11-57¢@ 
11-57 11-57¢@ 
11-57 11-57¢ 
11-57 11-57¢@ 
11-57 11-57¢ 
11-57 11-57¢ 
11-57 11-57¢@ 
11-57 11-576 
11-57 11-576 
11-S7@ 27-176 
11-576 13-64 
11-57@ 13-65 
11-57@ 13-66 
11-57@ 13-67 
11-57@ 13-68 
58-41 58-61 
11-S7@ 13-69 
37-163 37-176 
11-57@ 27-179 
11-57@ 27-183 
11-570 27-186 
11-57@ 27-189 
11-57@ 27-192 
11-576 27-195 
11-57@ 27-198 
11-57@ 30-25 
13-540 
11-576 


12-166 27-32 


6-3 
33-48 
33-61 


25-25¢ 
25-260 
25-214 


7-267 
33-54 
33-118 


26-160 
25-274 


63-100 
38-5« 


61-37 


37-74 


57-84 


7-320 
33-1126 
52-39 


30-60 


63-122 
38-144 


38-36 


36-188 


36-122 
36-122 


37-176 
36-104 


36-222 
63-91 
36-185 
38-45 
56-90 
58-47 


28-106 


66-27 
33-1254 
53-36 


34-9 


67-156 


38-202 


38-134 


37-206 


K13 


67-31 


33-128 


67-178 


38-140 


36-250 
38-26 


36-191 
38-262 
63-133 
36-191 
38-247 
67-153 
59-44 


56-90 


69-36 


36-141 


38-45 
38-138 


36-225 
38-391 
67-147 


36-222 
38-250 


59-64 
63-97 


69-86 


52-34 


38-170 


38-393 
38-357 


53-31 67-67 67-97 

38-294 38-329 38-394 

56-67 56 -84 56-95 57-50 
67-189 

37-38 37-41 37-62 37-65 
38-269 

67-195 


SEQ 0166 


57-78 
37-160 


EE ee er ne ee 


PARAMETER CODING MACRO V04.00 1- 


CROSS REFERENCE 


BYPASS 13-17¢ 
CsAU 7-278@ 
CSAUTO 7-278@ 
CSBRK 7-278¢ 
CSBSEG 7-278¢ 
CSBSUB 7-278 
55-15 
62-19 
67-127 


CSESCA 7-278¢ 
CSESEG 7-278 
CSESUB 7-278 
55-17 
62-25 
67-152 
CsETST 7-2780 
63-165 
CSExXIT 7-278 
66-33 
CsGETB 7-278¢ 
CSGETW 7-278¢ 
CSGMAN 17-2780 
C$GPHR 17-2780 


CSINIT 7-278¢@ 
CSINP 7-2780 
CSMANI 7-2780 
C$MEM 7-276¢ 
C$MSG 7-278¢@ 
CSOPEN 7-278 
CSPNIB 7-278¢ 
CSPNTF 7-278¢ 
33-75 
56-74 
67-178 


7-2760 


TABLE (CREF VO4,. 


30-37 44-114 
48-34 
45-17 
67-203 
50-62 51-18 
55-18 56-44 
62-28 63-30 
67-180 
26-16 26-35 
46-26 
44-98 44-100 
30-45 44-102 
47-33 

7-323 

30-19 30-23 
27-27 27-35 
27-108 27-113 
31-22 56-112 
67-205 
50-67 51-20 
55-20 56-57 
62-34 63-32 
67-194 
50-68 51-31 
64-63 65-85 
44-91 44-103 
67-37 67-78 
44-39 
36-18 36-145 
44-180 

19-25 19-34 
19-4 19-8 
32-165 32-168 
33-77 44-29 
57-86 58-69 
67-197 

19-10 19-11 


44-135 


51-25 
56-76 
63-71 


44-1394 


52-46 
57-25 
63-124 


46-18 


19-49 


19-26 
32-173 
44-73 
63-99 


19-14 


L13 


EC-83 12:59:38 PAGE S-2 
oo ) 


52-42 53-41 
57-41 57-69 
64-37 64-42 
46-21 46-23 
30-35 63-148 
27-Se2 27-61 
27-128 27-135 
59-79 61-24 
52-64 53-43 
57-55 57-83 
64-39 64-45 
54-67 55-25 
56-26 57-15 
19-29 19-33 
33-40 33-43 
44-75 44-77 
63-100 63-121 
19-16 19-17 


53-44 
58-34 
64 -56 


64-33 
27-66 
27-140 
61-35 


53-60 
58-46 
64-58 


56-120 
57-18 


19-39 
33-45 
44-85 
63-122 


19-21 


54-27 
58 -S2 
65-38 


67-209 
27-71 
27-147 
62-24 


54-29 
58 -66 
65-41 
57-110 


58-18 


54-30 
59-29 
65-42 


27-76 
27-150 
62-33 


54-32 
59-43 
65-47 
58-92 


58-21 


54-42 
59-49 
65-63 


27-87 
27-155 
63-157 


54-44 
59-63 
65 -66 


59-87 
59-17 


19-46 
33-56 
44-132 
67-35 


19-31 


54-45 54-57 

60-32 61-20 

65-67 66-S2 

27-92 27-95 

27-160 27-165 
67-221 

54-47 54-59 

60-44 61-25 

65-72 66-60 

60-S2 61-45 

59-20 62-35 

19-48 

33-S7 33-66 

56-60 56-61 

67-155 67-156 


SEQ 0167 


54-60 
61-31 
67-70 


27-98 
27-170 


33-73 
56-73 
67-177 


ee 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE 
CROSS REFERENCE TABLE (CREF V04.00 ) 


csQ@iIo 7-278 
CSRDBU 7-278 
CSREFG 7-2780 44-16 44-20 44-25 
CSRESE 7-2780@ 7-278@ 44-10 
CSREVI 7-278@ 7-323 
CSRFLA 7-2780 
CS$RPT 7-278@ 42-76 
CS$SEFG 7-278¢ 
CSSPRI 7-278@ 36-20 


CIi 36-237 37-120 

cI3s 36-240 37-S2e 

C14 36-232 37-770 

cIs 37-50 37-75 37-1540 37-171 

cI6é 37-94 37-105 37-108 37-110 37-1600 
C17 36-171 36-249 37-23 37-33 37-37 


YL 13-260 19-4 19-31 27-19% 28-126 
DBUFF 16-8 16-32 16-56 16-80 31-104 
63-26 63-78 64-25 65-22 66-38 
OCK 12-940 27-81 
OCU 12-1598 27-156 


s-3 


36-254 
26-155 
59-26 


$2-47 
S2-63 
55-19 


37-44 
37-148 


M13 


46-10 
26-170 
59-28 


53-42 
53-59 


37-48 
37-166 


44-95 
56-54 
59-40 


63-144 


44-29 
28-614 
31-15 
31-13 
69-1130 


27-61 
27-135 
59-79 


56-110 
36 -36 
59-86 


54-28 


37-57 
37-170 


67-200 


44-132 
28-1014 
56-1114 
31-15 


27-66 
27-140 
63-157 


57-100 
44-89 
63-44 


54-43 


37-61 
37-172¢ 


56-24 
56-86 
59-78 


29-184 
57-101 
31-16 


27-71 
27-147 
67-221 


58 -80 
56-37 
63-46 


54-58 


37-68 
38-30 


57-13 
56-97 
59- 


31-20« 
58-814 
31-17 


27-76 
27-150 


59-77 63-155 
56-39 56-119 
63-164 67-86 


55-16 


37-73 37-85 
38-126 38-371 


58-16 59-15 
56-111 56-113 
63-93 63-117 


32-214 5 
59-78% 63-156 
32-49 32-143 


27-87 27-92 
27-155 27-160 


67-219 
57-32 
67-88 


37-93 


63-19 
$7-S2 
63-135 


67-2204 
60-26 


27-95 
27-165 


SEQ 0168 


57-34 
67-201 


37-100 


67-51 
57-80 
63-156 


61-15 


27-98 
27-170 


N13 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


DHS2 19-36@ 63-148 67-209 


12-999 37-20 37-139 64-35 64 -62 65-27 65-84 

DORTI 32-35@ 56-39 S7- 58-29 59-28 63-46 67-88 67-214 

DOTWO 13-15@ 57-20e 57-92 57-94% 60-31% 60-34 60-36 60-41% 65-30 
66-43% 66-61 66 -63¢ -67¢ 


28-32 28-32 28-34 28-36 28-39 


28-58 28-61 28-61 28-61 28-63 
28-75 28-77 28-80 44-106e 50-60¢ 50-61 51-15# 51-16e  51-17« 
S2-25¢ S2-27¢ 52-40e 52-45 S2-5S* 52-57 52-60 52-624 52-65« 
53-SO0*« 53-52 S3-SSe¢ 53-5S6* 53-61« 53-62 53-64% 54-18% 54-194 


DPB.C 16-S1@ 26-186 26-191 28-96 28-98 26-101 26-101 28-101 28-103 
i 26-118 28-121 44-107# 54-208 54-21% 54-26% 54-348 54-35 


DPRQS_ 35-770 36-160 36-211% 36-243« 37-183« 37-196 37-2126 38-78 38-241 
36-166 37-157e 37-184e 37-194 37-2116 38-196 38-89 38-123 
DRVCAL 29-96 | 57-26 60-33 62-20 62-29 63-31 64-38 64-44 


-62 
-11 19-29 19-40 19-46 36-38 44-60 44-63 44-105 
-23 61-12 62-13 63-23 64-23 64-28 65-20 66-36 


DRVSTA 35-360 36-31¢ 36-326 36-33¢ 36-34 36-434 36-678 36-76% 36-119« 
36-223 37-228¢ 38-81 38-87 38-93 38-176 38-2578 44-64 


65-48 
28-404 


28-65 
51-216 
52-66 
54-25« 


28-105 
54-41% 


38-2654 
38-1334 
64-57 


44-106 
67-41 


36-1244 


65 -50« 
28-42 


28-68 
51-22 
52-68 
54-336 


28-108 
54-494 


38-2526 
65-40 


44-108 44-113 


36-158 36-183 


29-38 29-44 
34-574 34-830 
57-216 57-246 
57-82 57-91¢ 
59-40 59-40 
60-284 60-292 
61-17 61-186 
62-30 63-234 
63-135 63-135 
64-434 64 -46 


SEQ 0169 


65-75¢ 
44-1054 


28-734 
$1-29 

53-37« 
54-556 


28-1134 
54-64« 


65-65 


44-114 


36-219 


29-45 
44-1084 
57-384 
57-101 
59-42 
60-304 
61-194 
63-242 
63-137 
64-48 


PARAMETER CODING MACRO VO4.00 1- 
CROSS REFERENCE TABLE (CREF vO4. 


64 -50¢ 64 -53¢ 
65-33 65-34 
65-8le 65-84e 
66 - 566 66 -64¢ 
67-60 67-64 
67-149 67-149 


OTE 12-91@ 27-79 
OTUW 35-1298 36-27 
OVA 12-S7¢@ 

Ovc 12-1618 61-39 


ESLOAD 7-2780 7-323 
ECH 12-85@ 27-83 


EF.CON 11-S7@ 44-20 
EF .NEW 11-57@ 44-25 
EF .PWR 11-570 44-16 


EM1 18-86@ 27-27 
EM11 18-94@ 27-71 
EmM12 18-95@ 27-76 
Em13 18-96@ 27-95 
—mM14 18-97@ 27-103 
EmM1S 16-98@ 27-108 
EM16 18-99@ 27-113 
EM17 18-100@ 27-123 
EM? 18-6870 27-35 
EM20 18-102@ 56-112 
EM21 18-103@ 27-128 
EM22 18-104@ 27-135 


64-546 
65-39 
66 - 366 
66 -68e 
67-65 
67-151 


36-235 


27-132 


57-102 


67-209 


64-556 
65-436 
66-376 
66 -69 
67-71le 
67-174 


37-496 


27-133 


58-84 


64 -62¢ 
65-45¢ 
66 - 38 
66-736 
67-736 
67-181 


37-188 


59-79 


DEC-83 12:59:38 PAGE S-5 
oo ) 


63-157 


67-221 


65-236 
65-59 

66 -426 
67-426 
67-108 
67-202¢ 


37-2216 


67-110 
67-220 


38 -8 


67-129 
67-220 


38-206 


65-276 
65-7664 
66-556 
67-46 

67-133 


38-2546 


SEQ 0170 


65-31¢ 
65-79 
66 -S6« 
67-58 
67-134 


PAR@METER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S 6 5EQ 6171 
CROSS REFERENCE TABLE (CREF V04.00 ) 


EMS4 18-130@ 62-24 
EMSS 18-1318 62-33 


EM6 18-91@ 27-61 

EM? 18-920 27-66 

EMPTYQ 37-182 37-227 38-46 38-271 40-320 
ERR 12-73@ 27-40 27-55 61-26 


ERRABO 28-33 26 -62 26-102 29-19 29-41 30-90 32-22 
ERRANY 27-15@ 28-35 28-64 28-104 29-21 32-24 56-55 56 -87 57-53 57-81 58-44 58-64 59-41 59-61 
61-28 61-42 63-94 63-136 67-150 67-192 


ERRVEC 21-8 21-11 21-12¢ 21-396 
EVL 11-57¢@ 
EWN 12-63 27-126 


EXECMD 29-35@ 29-37 61-21 61-32 
EXINIT 44-81 44-83 44 -86 44-1050 


EXIT1S 64-41 64-47 64-610 


F SAU 7-2780 48-9 46-34 
FSAUTO 7-278@ 45-10 45-17 
F $8GN 7-278@ 7-304 10-40 11-51 19-3 19-27 19-36 19-45 26-112 26-130 26-165 32-34 38-4 41-1 
42-41 42-47 43-8 44-8 44-91 44-103 44-165 45-10 46-8 46-24 47-8 48-9 48-35 50-38 
50-57 50-62 50-62 50-67 50-68 51-14 51-18 51-18 51-20 51-25 51-25 $1-27 51-31 $2-23 
52-46 S2 -46 52-48 $2-49 52-49 52-64 S2-71 53-22 53-41 53-41 53-43 53-44 53-44 53-60 
53-67 54-17 54-27 54-27 54-29 54-30 - 54-32 54-42 54-42 54-44 54-45 54-45 54-47 
54-57 54-57 54-59 54-60 54-60 54-62 54-67 55-8 55-15 55-15 55-17 55-18 55-18 55-20 
55-25 56-23 56-26 56-44 56-44 56-57 56-76 56-76 56-89 56-120 57-12 57-15 57-18 57-25 
57-25 57-27 57-41 57-41 57-55 57-69 57-69 57-83 57-110 56-15 58-18 58-21 58-34 58-34 
58-46 58-S2 58-S2 58 -66 58-92 59-14 59-17 59-20 59-29 59-29 59-43 59-49 59-49 59-63 
59-87 60-20 60-32 60-32 60-44 60-52 61-9 61-20 61-20 61-25 61-31 61-31 61-36 61-45 
62-10 62-19 62-19 62-25 62-28 62-28 -34 62-35 62-38 63-17 63-30 63-30 63-32 63-35 
63-71 63-71 63-96 63-124 63-124 63-138 63-165 64-19 64-37 64-37 64-39 64-42 64-42 64-45 
64-56 64-56 64-58 64-63 65-18 65-38 65-38 65-41 65-42 65-42 65-47 65-63 65-63 65 -66 
65-67 65-67 65-72 65-85 66-25 66-33 66 -S2 66 -S2 66-60 66-83 67-29 67-37 67-70 67-70 
67-75 67-78 67-127 67-127 67-152 67-180 6/-180 67-194 67-203 67-247 67-254 68-43 68-53 69-12 
9-123 70-15 70-16 70-16 70-21 70-22 
FSCLEA 7-278@ 46-8 46-26 
F $DU 7-278@ 47-8 47-33 
F SEND 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 7-278 
7-276 7-278 7-278@ 7-304 10-40 11-51 19-25 19-34 19-43 19-49 26-115 26-133 26-168 32-36 
38-15 41-1 42-41 42-61 42-76 44-91 44-103 44-165 44-180 45-17 46-24 46- 47-18 47-33 
48-19 48-34 48-35 50-38 50-57 50-57 50-57 50-62 50-62 50-67 50-67 50-68 51-14 
51-14 51-14 51-16 51-18 51-20 51-20 51-25 51-25 51-27 51-27 51-31 $1-31 S2-23 S2-23 
S2-23 S2 -46 2-46 52-48 52-48 52-49 52-49 S2 -64 52-64 S2-71 S2-71 53-22 53-22 53-22 
53-41 53-41 53-43 53-43 53-44 53-44 53-60 53-60 53-67 53-67 54-17 54-17 54-27 


PARAMETER CODING MACRO VO04.00 1- 
CROSS REFERENCE TABLE (CREF VO4, 


F$SwW 
FSTEST 


FC 


GSCNTO 
G$DELM 


7-2780 


34-29 


DD ve 


54-30 


54-30 
54-59 
55-18 
56-76 
57-27 
58-18 
59-14 


DEC-83 12:59:38 PAGE S-7 
00 ) 


44-165 
63-35 
42-41 
19-36 


67-217 
55-9 


52-68 


56-41 
53-24 


62-14 
53-64 


54-19 


55-10 


67-247 


56-26 


67-247 


57-15 


60-28 


SEQ 0172 


57-18 


62-15 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE 5-8 SEQ 0173 
CROSS REFERENCE TABLE (CREF V04.00 ) 


G$sDISP 7-2788 


GSOFFS 7-278@ 68-55 68-57 68-59 68-61 69-14 69-18 69-20 69-22 69-24 69-26 69-28 69-30 69-32 
69-34 69-38 69-44 69-47 69-49 69-S1 69-53 69-55 69-57 69-60 

GSOFSI 7-278@ 68-55 68-57 68-59 68-61 69-14 69-18 69-20 69-22 69-24 69-26 69-28 69-30 69-32 
69-34 69-38 69-44 69-47 69-49 69-51 69-53 69-55 69-57 69-60 


GSPRMD 7-278@ 68-59 68-61 69-18 69-20 69-22 69-24 69-26 69-28 69-30 69-32 69-34 
GSPRML 7-278@ 69-14 69-38 69-44 69-47 69-49 69-51 69-53 69-55 69-57 69-60 


G$RADD 7-278@ 69-18 69-20 69-22 69-24 69-26 69-28 69-30 69-32 
G$RADL 7-278@ 69-14 69-38 69-44 69-47 69-49 69-S1 69-53 69-55 69-57 69-60 
G$RADO 7-278@ 68-55 68-57 68-59 68-61 69-34 


GSYES 7-278@ 68-S5 68-57 68-59 68-61 69-14 69-18 69-20 69-22 69-24 69-26 69-28 69-30 69-32 
69-34 69-47 69-49 69-51 69-53 69-55 69-57 69-60 


GETREQ 36-212 37-201 38-37 38-83 38-120 38-125 38-180 38-244 38-259 38-266 40-68 
HCE 12-86@ 27-132 27-133 27-143 


HCI 12-171¢ 
HCRC 12-87@ 27-132 27-133 27-143 27-145 
HELP 7-259@ 7-273 7-295 7-312 7-326 8-10 9-15 10-32 11-40 11-41 12-232 17-51 18-19 18-29 


18-137 18-149 19-51 40-94 40-103 40-110 42-4¢ 42-49 42-63 43-14 44-141 44-167 45-11 47-9 
47-20 48-10 48-21 49-Se@ 50-45 50-S2 67-230 67-235 67-249 68-50 68-77 68-87 69-63 69-104 


—_* 26-14e 26-30e 26-45 26-53 26-780 


ISINIT 7-278@ 44-86 44-91 44-103 44-165 44-1800 

I$m0D 7-278@ 7-304 7-304@ 10-40 10-40@ 11-51 11-510 41-1 41-10 42-41 42-410 48-35 48-359 50-38 
50-380 67-254 67-2548 68-43 68-43@ 69-123 69-1230 

I$MSG 7-278@ 19-3¢ 19-25@ 19-27@ 19-340 19-360 19-430 19-450 19-496 


ISSEG 7-278@ 50-57 50-62 51-14 51-16 51-25 S2-23 Se -46 52-49 53-22 53-41 53-44 54-17 $4-27 
-30 54-42 54-45 54-57 54-60 55-8 55-15 55-18 56-23 56-44 56-76 57-12 57-25 57-41 
34 58-S2 59-14 59-29 59-49 60-20 60-32 61-9 61-20 61-31 62-10 62-19 
-28 63-17 63-30 63-71 63-124 64-19 64-37 64-42 64-56 65-18 65-38 65-42 65-63 65-67 
-25 66-S2 67-29 67-70 67-127 67-180 67-2030 67-205¢ 


ISSETU a iy 70-15 70-15@ 70-16 70-22 70-220 
IsSRv -278@ 26-112@ 26-1150 26-1350@ 26-1330 26-1650 26-1680 32-340 32-360 38-40 38-150 
I$Sus -278@ 50-57 50-62 50-62@ 50-67 50-67@ 50-676 51-14 51-18 51-18@ 51-20 S1-20@ 51-208 51-25 


-25@ 51-27 51-270 51-270 52-23 52-46 52-460 52-48 S2-48@ 52-480 52-49 S2-49@ 52-64 S2 -64¢ 
-640 53-22 53-41 53-410 53-43 53-430 53-430 53-44 53-44@ 53-60 53-600 53-600 54-17 54-27 
-270@ 54-29 54-290 54-290 54-30 54-300 54-32 54-320 54-320 54-42 54-420 54-44 54-440 54-44% 


PARAMETER CODING MACRO V04.00 1-DEC-83 12:59:38 PAGE S-9 
CROSS REFERENCE TABLE (CREF VO04.00 ) 


IsTsT 


54-45 
54 -62¢ 
56-440 
57-27¢ 
58 -46 
59-49 
61-25 


7-323¢6 


54 -45¢ 


67-112 
58-32 


44-146 
44-89 
65-80 
50-586 


47-18 
26-1130 


58 -94¢ 


56-119 
66-70 
50-65¢ 


48-19 


54-47% 54-57 54-570 
55-17 55-170 55-170 
56-76 56-760 56-89 
57-55@ 57-55@ 57-69 
58-520 58-66 58 -660 
59-634 60-20 60-32 
61-310 61-36 61-360 
62-340 63-17 63-30 
63-138 63-1380 63-1380 
64 -S6 64-560 64-58 
65-470 65-470 65-63 
66-S2e@ 66-60 66-600 
67-152@ 67-180 67-1800 
50-68 50-689 50-680 


66-25¢@ 66-33 66 -S2 
67-2478 67-2470 


57-109 58-83 58-91 
52-246 52-694 53-2354 


59-86 
53-656 


54-59 
55-1860 
56-890 
57-83 
59-14 
60-44 
62-10 
63-32 


63-164 
62-124 


54-590 54-60 
55-20 55-200 
57-12 57-25 
57-830 57-830 
59-29 59-290 
60-440 60-44% 
62-19 62-190 
63-320 63-320 
64-370 64-39 
65-18 65-38 
65-66% 65-6640 
67-70 67-70¢@ 


51-18 51-25 
53-41 53-44 
54-670 54-670 
56-120 56-1200 
58-150 58-18 
59-87 59-87 
61-45¢@ 61-456 
63-71 63-124 
65-189 65-36 
66-830 67-29 


67-201 67-229 
62-36% 63-184 


54-604 


63-33 


67-75¢@ 
51-310 


64-226 


SEQ 0174 


54-624 
56-44 
57-2790 
58-344 
59-434 
61-204 
62-254 
63-96 
64-42 
65-419 
65-72 
67-75¢ 


64-594 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-10 
CROSS REFERENCE ) 


L$DESC 


7-323 

7-3230 
7-323¢ 
7-323 

7-3230 
7-323 
7-323¢ 

47-88 

7-323¢ 
7-323 

7-323¢ 
7-323¢ 
7-323¢ 
7-323 
7-323¢ 
7-323 
7-323 

7-323¢ 
7-323 
7-323 
7-323 

7-323 
7-323 

7-323 
7-323 

7-323¢ 
7-323 
7-323¢ 
7-323¢ 


TABLE (CREF V04.00 


18-274 


8-84 


18-17% 


68-53 68 -53¢ 


9-9 9-90 
44-8¢ 
69-122 70-22 


43-80 


69-12 69-120 


10-8 10-8¢ 

32-138 33-67 33-69 33-71 33-113 
44-34 

9-210 

10-396 


42-760 


G14 


66-31 


67-35 


SEQ 0175 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 


L10015 
L10016 
110017 
L10020 
L10021 


44-91 
45-17¢ 


44-103 44-165 44-1804 


46 -26¢ 
47-33¢ 
48-340 


56-120 


57-18 57-1100 


58-21 58-920 


59-20 59-870 


62-386 


63-165¢ 


H14 


SEQ 0176 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-12 
CROSS REFERENCE TABLE (CREF V04.00 ) 


110105 65-41¢ 


L10113 67-37 67-78 67-2474 


LBC 12-1649 27-64 
Lc 10-10@ 32-81 34-64 34-74 51-22 51-24 52-28 
LCE 12-1638 27-121 


LF 18-13 69-88 69-89 

LKS 26-424 26-750 26-95% 26-107 

LKV 26-44% 26-760 26-94 44-100 46-21 

LOE 11-S7¢@ 

LOT 11-57¢ 

LS 10-16@ 34-14 34-24 54-20 55-11 

LSMSG 69-32 69-840 

LST 12-69% 61-22 

LT 10-13@ 34-39 34-48 S2 -66 53-62 54-21 55-12 


MSGLMT 15-8 15-14 15-18 15-22 15-26 18-774 
MSGMAX 32-171 33-51 33-920 

MSGMIN 32-168 33-45 33-910 

MSGNON 


1 13-210 54-35 54- 34-65 58-23 61-18 
NC2 13-220 64-27 65-24 
NED 12-37@ 27-38 


114 


52-36 


60-47 


53-33 


65-82 


55-14 


66-71 


57-39 


59-31 


66 -80 


SEQ 0177 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-13 
CROSS REFERENCE TABLE (CREF Vv04.00 ) 


NEM 12-36% 27-38 
NOCLK 18-619 44-85 
NOOP 12-199¢ 

NOTMSG 18-82@ 44-71 
NS1 13-24@ 28-8 
NT1 13-23¢@ 28-11 
OSAPTS 7-278@ 7-323 
OSAU 7-278@ 7-323 


OSBGNR 7-278@ 7-323 
OSBGNS 7-278@ 7-3108 
OsO0U 7-278@ 7-323 
OSERRT 7-278@ 7-323 
OSGNSW 7-278 7-310 
OSPOIN 7-278@ 7-310 
OSSETU 7-278@ 7-310¢ 


48-36 49-1 
OPI 12-920 27-116 
OPT 36-168 36-2080 
P 69-14 69-760 
PAT 10-17@ 65-32 


67-86 


53-51 61-16 
64-48 


7-3100 7-310¢ 
69-122 


S-1 7-263 
50-3 67-256 


38-145 38-194 
66-44 67-47 


26 
3 ae 58-406 


26-126 26-135 


19-8 24-6 
40-47 40-49 


7-323 


26-1364 
58-534 
67-1604 
32-93 
56-49 
26-1284 
58-394 
67-846 
26-135 


40-830 
67-197 
58-29 


26-155 


24-21 
40-69 


J14 


10-41 
68-9 


26-1564 
58-604 
67-1704 
32-95 
56-81 
26-1314 
58-564 
67-1414 
26-153 


58-80 


26-170 


24-400 
40-834 


11-1 
68-15 


67-145« 
26-155 


59-28 


56-37 


11-84 


59-77 


57-32 


11-13 


63-46 


58-27 


56-Sis 
59-574 


32-102 
58-58 
56 -464 
59-534 


67-1846 
46-18 


63-155 


59-26 


42-1 


56-774 
63-804 


32-121 
$9-35 


56-504 
59-564 
67-1874 
56-37 


67-88 


63-44 


42-89 


56-836 
63-902 


32-123 
$9-S55 


56-794 
63-424 


57-32 


67-219 


67-86 


SEQ 0176 


42-13 


57-426 
63-1044 


32-124 
63-88 


56-82 
63-85 


58-27 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-14 
CROSS REFERENCE TABLE (CREF V04.00 ) 


57-52 57-80 57-101 
67-220 
REV 14-14 14-19 14-24 


RPCS1 17-11¢ -70@ -77 
38-296 38- 38-325 
58-55¢ 59-320 59-526 

RPCS2 17-15@ 32-i1l1¢ 36-376 
38-148e 38-169e 38-351i¢ 
56-69% 56-70e 56-86s 


63-158 63-158e 67-149s 
RPDA 17-140 32-286 56-434 
RPOC 17-250 32-29% 56-404 


67-1496 
63-764 
57-436 


40-554 
40-874 


67-1746 
67-1326 
58-326 


K14 


40-88 


67-1914 
67-1614 
58-544 


40-90 


67-66 
38-56 


50-59 


19-11 
19-17 


38-13 
59-60 


29-35 


67-1914 


59-316 


67-96 
38-2874 


50-59 


19-11 
19-17 


38-217 
59-78 


32-15 


37-77 
56-654 
67-1836 
37-534 
46-114 
56-1136 
58-81 
63-1174 
67-2204 


59-516 


38 -362 


53-25 
19-11 
19-17 


38-378 
63-93 


36-1440 


63-736 


53-25 


19-11 
19-17 


40-23 
63-135 


63-135« 
67-2226 


67-1294 


19-11 
19-17 


56-54 
63-156 


38-494 
57-444 


37-2244 
53-454 
57-S2e 
58-85 
63-1356 
67-2226 


19-14 
19-22 


56 -86 
67-149 


38-289 
57-72 


38-27% 


SEQ 0179 


19-14 
19-22 


56-111 
67-191 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-15 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RPDS 


RWU3 


17-16 
63-56 


57-101 


38 
38 
38 
38 
38 
38-111 
38 
38-1176 
38 
61 
56 
56 
37 
19 
19 
26 


38-152 
63-115 


60-21 
53-46 


38-98 


38-186 
63-133 


60-51 


38-1526 


56 -Se2 
67-112 


61-10 


38-1536 


44 -S58s 
58-83 
67-229 


38-146 


56-65 
28-614 
28-6 


52-26 


56 -67 
67-147 


62-11 


38-1544 


38-195 


56-78 
28-1014 
28-8 


52-26 


L1i4 


56 - 84 
67-171 


63-21 


38-155¢ 


44-89 
58-91 


56-93 
29-184 
28-144 


57-24 


56-95 
67-189 


64-20 


63-86 
31-186 
30-144 


57-44 


57-50 


64-61 


63-110 
32-21 
31-176 


57-72 


57-78 


65-19 


67-142 
56-1114 
58-35 


58-41 


66 -26 


56-39 
63-46 


67-166 
57-101¢ 
58-55 


58-61 


67-30 


56-119 
63-164 


67-149 


58-81+« 
59-32 


59-38 


67-53 


56-119 
63-164 


42-760 
53-43¢ 
56-894 
61-25¢ 
65-419 
68-62¢ 
56-111 
67-191 


59-78 
59-52 


SEQ 0180 


59-58 


$7-S2 
67-220 


63-1564 
64-36 


M14 
PARAMETER CODING MACRO VO04.00 1-DEC-83 12:59:38 PAGE S-16 SEQ 0181 
CROSS REFERENCE TABLE (CREF V04.00 ) 


64-55 65-39 65-64 
SET.IE 36-73 36-180 36-252 37-230 38-64 38-191 36-3874 
SETFOR 12-226@ 37-111 44-137 50-59 52-26 53-25 
SFPTBL 10-8¢@ 
SIZE70 21-90 44-47 
SKI 12-165@ 27-121 


SPTYP 32-161 56-116 57-106 58-88 59-83 63-161 67-226 
SRCHOO 32-108 56-27 57-16 58-19 59-18 63-37 67-80 
SRCHWT 35-980  36-210e 37-748 38-134 38-141 


ST.CLK 26-130 36-16 44-90 56-114 57-104 58-86 59-81 63-159 67-223 


STOPCK 26-1020 44-93 46-13 56-35 57-30 58-25 59-24 60-22 61-11 63-22 64-21 65-28 66 -SO 67-55 
STRTMR 32-43@ 56-34 57-29 58-24 $9-23 63-41 67-83 
SVCGBL 7-278@ 7-287@ 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7- 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7- 7-323 
7-323 7-323 7-323 7-323 8-8 8-8 8-8 - 9-9 9-9 9-9 -9 9-9 10-8 
10-8 10-8 10-8 10-8 10-8 18-17 18-17 18-17 18-27 18-27 18-27 19-3 19-3 19-3 
19-27 19-27 19-27 19-36 19-36 19-36 19-45 19-45 19-45 42-47 42-47 42-47 43-8 43-8 
43-8 44-8 44-8 44-8 45-10 45-10 45-10 46-8 46-8 46-8 47-8 47-8 47-8 48-9 
48-9 48-9 68-53 68-53 68-53 69-12 69-12 69-12 69-122 69-122 69-122 69-122¢ 
SVCINS 7-278@ 7-284@ 7-323 7-323 7-323 7-323 7-323 7-323 7-323 -323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 
7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 7-323 8-8 8-8 
8-8 8-8 8-68 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 
8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 
8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 9-9 9-9 10-8 10-8 18-17 18-17 
18-17 18-17 18-27 18-27 18-27 18-27 19-4 19-4 19-4 19-4 19-4 19-4 19-4 19-4 


_ ee ee 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-17 
CROSS REFERENCE TABLE (CREF V04.00 ) 


19-4 19-4 19-4 19-4 19-4 19-4 

19-8 19-8 19-8 19-8 19-8 19-8 

19-10 19-10 19-10 19-10 19-10 19-10 
19-11 19-11 19-11 19-11 19-11 19-11 
19-11 19-11 19-11 19-11 19-13 19-13 
19-14 19-14 19-14 19-14 19-14 19-14 
19-14 19-14 19-14 19-14 19-14 19-14 


26-18 26-18 26-35 26-35 26-35 26-35 
26 -84 26-84 26-84 26 -84 26-84 26-84 
26-94 26-94 26-94 26-94 26-94 26-94 
26-126 26-126 26-126 26-126 26-126 26-126 
26-135 26-135 26-135 26-135 26-135 26-135 
26-155 26-155 26-155 26-155 26-168 26-168 
26-170 26-170 26-170 26-170 27-27 27-27 
27-35 27-35 27-35 27-35 27-35 27-35 


33-51 33-51 33-51 33-51 33-56 33-56 


PARAMETER CODING MACRO V04.00 1 
CROSS REFERENCE TABLE (CREF vO4 


53-44 
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me 
nee 
ov 


uw 
~ 
w 


buyges 


' 
ie tee Lal 
baie 


S 
SLRRRRRKSSSLaAK 


RRRRRFRR SLA 


' 
— 
[i 
is) 


57-27 
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— 12:59:38 PAGE S-18 
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ee 
att h> 5 


vyiu 
Yiwu 
‘ ' ‘ 
~~ ao 
yun 


URSERERLALAL 
g 


an 
N 


‘ ‘ee 
wuUr 


SREREKLALY 
me broods 


46-24 -24 
46-19 -19 
51-25 -25 
S2-71 -71 
54-29 - 
54-57 - 
55-18 - 


‘ee 
Norcaeo 
oo 
. ee a, oe oe ee 
MEER EEE BES SIE Ly 
~ oo 


0998S SSS SSSR RRS 
REE SOSSSSSSSSS LIRR RRR be OO 


34 

86 

102 

109 

-27 -2 

-29 -29 

-S2 -S2 

-80 -80 

-83 -83 

-91 -91 

-20 -20 

-26 -26 

-29 -29 
59-66 -66 
59-79 -79 
59-87 -87 
61-24 -24 
61-35 -35 
62-24 -24 


SRB2ESR38ooRE 


0998S SSS SSR RRS 


59-66 


g 


57- 


29 
58 -66 


VEeeedvyoge 


gressyysyees 


ww 
ww 
‘ 
~sMN 
Ww 


ESSE 
$ho% 


44-85 


Be 
rere 
~_o& 


SSshSeeeers 


RRRFSRHRFARE LASHES 


on 


‘ 
Preas 
pe aw 


v 
wy 


SEQ 0183 


PARAMETER CODING MACFO VO4.0) 1-DEC-83 12:59:38 PAGE 5-19 SEG 0184 
CROSS REFERENCE TABLE: (CREF VO4.00 ) 


62-33 62-32 62-33 62-33 62-33 62-33 62-55 62-53 62-34 62-34 62-35 62-35 62-35 62-35 
62 -38 62 -38 63-30 63-30 63-32 63-32 635-35 63-35 63-35 63-35 63-44 63-44 63-44 63-44 
63-44 63-44 63-44 63-44 63-44 63-44 63-44 63-44 63-46 63-46 63-46 63-46 63-46 63-46 
63-46 63-46 63-46 63-46 63-46 63-46 63-71 63-71 63-% 63-96 63-99 63-99 63-99 63-99 
63-99 63-99 63-99 63-99 63-99 63-99 635-100 63-100 63-100 63-100 63-100 63-100 63-100 63-1006 
63-100 63-100 63-121 63-121 63-121 63-121 63-121 63-121 63-121 63-121 63-121 63-121 63-122 63-122 
63-122 63-122 63-122 63-122 63-122 63-122 63-122 63-122 63-124 63-124 63-138 63-138 63-141 63-141 
63-141 63-141 63-141 63-141 63-141 63-141 63-141 63-141 63-148 63-148 63-148 63-148 63-148 63-148 
63-148 63-148 63-155 63-155 63-155 63-155 63-157 63-157 63-157 63-157 63-157 63-157 63-157 63-157 
63-164 63-164 63-164 63-164 63-164 63-164 63-164 63-164 63-164 63-164 63-164 63-164 63-165 63-165 
64-33 64-33 64-33 64-35 64-33 64-33 64-33 64-33 64-34 64-34 64-37 64-37 64-39 64-39 
64-42 64 -42 64-45 64-45 64 -56 64-56 64-58 64-58 64-63 64-63 65-38 65-38 65-41 65-41 
65-42 65-42 65-47 65-47 65-63 65-63 65-66 65 -66 65-67 65-67 65-72 65-72 65-85 65-85 
66-31 66-31 66-31 66-31 66-31 66-31 66-31 66-31 66-31 66-31 66-31 66-31 66-33 66 -33 
66-33 66-33 66 -S2 66 -S2 66 -60 66 -60 66-83 66 -83 67-35 67-35 67-35 67-35 67-35 67-35 
67-35 67-35 67-35 67-35 67-35 67-35 67-37 67-37 67-37 67-37 67-70 67-70 67-75 67-75 
67-78 67-78 67-78 67-78 67-86 67-86 67-86 67-86 67-86 67-86 67 -86 67-86 67-86 67-86 
67-86 67-86 67-88 67-88 67-88 67-88 67-88 67-88 67-88 67-88 67-88 67-88 67-88 67-88 
67-127 67-127 67-152 67-152 67-155 67-155 67-155 67-155 67-155 67-155 67-155 67-155 67-155 67-155 
67-156 67-156 67-156 67-156 67-156 67-156 67-156 67-156 67-156 67-156 67-177 67-177 67-177 67-177 
67-177) §=67-177) «8967-177 «=—6 7-177) 67-177) Ss 67-177 67-178 «= 7-178 )= 7-178 =: 7-178 = 7-178 = 7-178 §=— 7-178 =: 6 7-178 


SVCSUB  7-2780@ 7-286@ 50-62 50-62 50-62 51-18 51-18 51-18 51-25 51-25 51-25 S2-46 S2-46 52-46 


54-30 54-42 54-42 54-42 54-45 54-45 54-45 54-57 54-57 54-57 54-60 54-60 54-60 55-15 
55-15 55-15 55-16 55-16 55-18 56-44 56-44 56-44 56-76 56-76 56-76 57-25 57-25 57-25 
57-41 57-41 57-41 57-69 57-69 57-69 58-34 58-34 58-34 58-S2 58-S2 58-Se2 59-29 59-29 
59-29 59-49 59-49 59-49 60-32 60-32 60-32 61-20 61-20 61-20 61-31 61-31 61-31 62-19 
62-19 62-19 62-28 62-28 62-28 63-30 63-30 63-30 63-71 63-71 63-71 63-124 63-124 63-124 
64-37 64-37 64-37 64-42 64-42 64-42 64 -56 64-56 64-56 65-38 65-38 65-38 65-42 65-42 
65-42 5-63 65-63 5-63 65-67 65-67 65-67 66-S2 66 -S2 66-52 67-70 67-70 67-70 67-12? 
67-127 67-127 67-180 67-180 67-180 

SVCTAG 7-278@ 7-288@ 9-21 9-21 9-21 10-39 10-39 10-39 19-25 9-25 9-25 19-34 19-34 19-34 
19-43 19-43 19-43 19-49 19-49 19-49 26-115 26-115 26-115 26-133 26-133 26-133 26-168 26-168 
26-168 32-36 32-36 32-36 38-15 38-15 38-15 42-76 42-76 42-76 44-180 44-180 44-180 45-17 
45-17 45-17 46-26 46-26 46-26 47-33 47-33 47-33 48-34 48-34 48-34 50-67 50-67 50-67 


PARAMETER CODING MACRO V04.00 1-DEC 
CROSS REFERENCE TABLE (CREF v04.00 


SvCTST 


SVRHXX 
SVSTAT 


TS$AU 
TS$SAUT 
TSSCLE 
TS$$DAT 
T$$DU 
T$$HAR 
T$ Sti 
TSSINI 
T$$MSG 
TSsPC 
T$$PRO 
TSsSPTA 
TS$SRPT 
T$$SEG 
T$$SOF 
TS$SRV 
T$$SuB 


T$$Sw 
TSsTES 


TSARGC 


50-68 
S2 -48 


Speeesy 


rat Oe Ore 


_ 


SS 1 wKELSSSELERE 


50-68 
52-64 
54-29 
54-59 
55-25 
57-55 
58 -66 
60-44 
62-25 
63-96 
64-58 
65-72 
67-75 
68 -62 
50-57 


19-11 
19-13 
19-146 


44-165 
19-34 


19-140 


51-20 
52-71 
54-29 
54-62 
56-57 


44-180 
19-360 


-63 12:59:38 PAGE S-20 
) 


19-43 


Saseyey 
RRESELS 


27-186 
59-44 


19-456 


51-27 51-27 
53-43 53-43 
54-32 54-44 
54-67 54-67 
56 -89 56-89 
57-83 57-110 
59-43 59-43 
61-25 61-25 
62-34 62-38 
63-165 63-165 
65-41 65-41 
65-85 66 -60 
67-194 67-194 
70-16 70-16 
51-14 S2-23 
56-23 56-23 
61-9 61-9 
65-18 66-25 
38-270 38-3480 
63-93 63-135 
27-189¢ 27-1926 
59-64 63-97 
19-49 
32-36 38-40 
52-48 52-490 
54-47 54-57¢@ 
57-27 57-410 
60-44 61-200 
63-138 64-370 
65-72 66-520 
53-67 54-170 
58-21 58-92 
63-35 63-165 
7-323 7-323 
19-4 19-40 
19-80 19-80 
19-110 19-110 
19-14 19-14 
19-16 19-16 


27-1956 
63-139 


19-160 


27-198 
67-153 


51-31 
53-60 
54-47 
55-17 
56-120 
58 -46 
59-63 
61-36 
63-32 
64-39 
65-47 
66-83 
67-205 
70-21 
53-22 
57-12 
62-10 
67-29 
56-111 
67-191 
28-37 
67-195 


SEQ 0185 


52-48 
53-67 
54-47 
55-20 
57-27 
58-46 
59-87 
61-45 
63-32 
64-45 
65 -66 
66-83 
67-247 


53-22 
58-15 
63-17 
67-29 
57-80 


28-106 


53-60 
55-17 | 
58-46 

62-25 
64-58 
67-152 


! 


56-26 
60-20 
66-25% 


7-323¢ 
19-8 
19-11 
19-11¢ 
19-14@ 
19-17 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-21 
CROSS REFERENCE TABLE (CREF V04.00 } 


TSCODE 


TSERRN 


TSExce 
TSFLAG 


TSFREE 
T $GMAN 
TSHILI 


TSLAST 
TSLOLI 


TSLSYM 


19-17 
19-21 
19-28¢ 


19-17 
19-22 
19-29 
19-31 
19-33 
19-400 
19-48 


19-17 


19-17 
19-22 
19-29 
19-31 
19-330 
19-400 
32-165 
32-1735 
33-50 


19-170 


ae he 


19-17% 
19-220 
19-29 
19-31 
19-39 
19-400 
32-1650 
33-40 
33-50 
33-560 
33-730 
44-71 
44-750 
44-127 
56-73 
59-660 
63-141 
67-1550 


68-57 
68-61 


19-170 19-17% 
19-220 19-220 
19-290 19-290 


66-31 
67-177 


SEQ 0186 
19-170 19-21 
19-28 19-28 
19-30 19-30 
19-310 19-314 
19-40 19-40 
19-46 19-46¢ 
32-171 32-171 
33-45 33-45 
33-51 33-5190 
33-66 33-66 
3-77 33-77 
44-73 44-73 
44-85 44-85 
44-132 44-132¢ 
57-86 57-86 
63-100@ 63-121 
66-319 67-35 
67-1778 67-178 
68-59 68-59 
69-14 69-148 
69-18 69-18 
69-22 69-22¢ 
69-260  69-26¢ 
69-32 69-32 
69-38 69-389 
69-44 69-44 
69-49 69-499 
69-S3@ 69-534 
69-59 69-S9 
69-60@  69-60¢ 
27-618 27-66 
27-988 27-103 
27-135@ 27-140 
27-170@ 27-203 
31-228 56-112 
62-248 62-33 
69-22 69-22° 
44-165 44-165¢ 
56-26 56-26% 
58-18@ 58-21 
62-35 62-35¢ 
67-372 67-78 
69-22 69-22° 
69-22 69-22¢ 
38-15 42-76 
S2-71 53-43 
56-57 56-89 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-22 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TSL TNO 
TSNEST 


T$NSO 
T$NS1 


TSNS2 


56-120 
61-36 
65-47 
69-122¢ 
7-2780 
10-39 
19-25 
19-43 
26-115 


57-27 
61-45 
65 -66 


51-186 


57-83 
62-34 
65-85 


57-110 
62-38 
66-60 


53-43 


58 -46 
63-32 
66-83 


9-9 
10-40 
19-27 


52-460 


69-59 69-71 
52-48 52-490 


59-63 
64-39 
67-247 


68-620 
69-123¢ 


19-45¢ 
43-80 

51-140 
58-15¢ 
65-180 


53-41¢ 


$s 
rn 
wh 


50-57 


SEQ 0187 


61-25 
65-41 


10-8¢ 
19-30 
19-360 
26-112¢ 
26-1654 
38-40 
42-47¢ 


69-12¢ 


26-115 
44-180 
S2-71 
59-87 
66-83 


53-60 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-23 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TSPCNT 
TSPTAB 
TSPTHV 
TSPTNU 
TSSAVL 
T$SEGL 
T$SEKO 
T$SIZE 
T$SUBN 


TSTAGL 
T$TAGN 


TS TEMP 


54-270 
S5-18¢ 
58 -S2e 
62 -28¢ 
65 -38¢ 


54-29 
55-20 


54-304 
56-440 
59-290 
63-304 
65-42¢ 
67-2030 
70-16 


67-205 
70-164 


70-22 
67-2030 


50-62 


54-424 
56 -76¢ 
59-494 
63-714 
65-630 


70-22 
67-205 


64-42 
65-630 
67-1270 


10-8 
19-45¢@ 


53-600 
54-620 


54-44 
56-89 
59-63 
63-96 
65 -66 


54-67 


54-450 54-47 
57-250 57-27 
60-329 60-44 
63-1240 63-138 
65-67% 65-72 


8-8 8-8 
8-8 8-8 
8-8 8-8 ° 
8-80 8-80 
19-250 19-34 


54-57% 
57-414 
61-204 
64-37% 
66 -S2¢ 


54-290 
55-170 


54-6C@ 54-62 
57-690 57-83 
61-319 61-36 
64-429 64-45 
67-70% 67-75 


8-8 8-8 
8-8 8-8 
8-380 8-8¢ 
8-80 8-80 


55-154 
58-34% 
62-194 
64 -56¢ 
67-1274 


SEQ 0188 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-24 SEQ 0189 
CROSS REFERENCE TABLE (CREF VO04.00 ) 


S6-26@ 56-57 56-57 56-89 56-89% 56-120 56-1200 57-15 57-150 57-18 57-180 57-27 S7-27¢@ 57-55 
$7-55S@ 57-83 57-83 57-110 57-1100 58-18 58-189 58-21 58-210 58-46 58-460 58-66 58-669 58-92 
58-92@ 59-17 59-178 59-20 59-206 59-43 59-430 59-63 59-630 59-87 59-870 60-44 60-448 60-52 
* 60-S2@ 61-25 61-250 61-36 61-360 61-45 61-450 62-25 62-250 62-34 62-340 62-35 62-35 62-38 
62-380 63-32 63-32% 63-35 63-350 63-96 63-960 63-138 63-1380 63-165 63-1650 64-39 64-39% 64-45 
64-45¢@ 64-58 64-580 64-63 64-630 65-41 65-419 65-47 65-47@ 65-66 65-660 65-72 6S5-72@ 65-85 
65-85@ 66-35 66-33@ 66-60 66-600 66-83 66-830 67-37 67-370 67-75 67-75@ 67-78 67-788 67-152 
67-152@ 67-194 67-1940 67-205 67-205@ 67-247 67-2470 67-254 67-2546 68-55 68-55 68-55 68-S5¢@  68-55¢ 
68-55@ 68-57 68-57 68-57 68-570 68-570 68-570 68-59 68-59 68-59 68-590 68-590 68-59% 68-61 
68-6r 68-61 68-619 68-610 68-61% 68-62 68-620 69-14 69-14 69-14 69-140 69-140 69-140 69-18 
69-18 69-18 69-18@ 69-180 69-18% 69-20 69-20 69-20 69-208 69-200 69-200 69-22 69-22 69-22 
69-228 69-220 69-220 69-24 69-24 69-24 69-240 69-240 69-240 69-26 69-26 69-26 69-260 69-260 
69-269 69-28 69-28 69-28 69-280 69-280 69-280 69-30 69-30 69-30 69-300 69-300 69-308 69-32 


6 
TSTEST PB fy Ses 50-57 50-57 50-57@ 50-62 51-14 51-14 51-14@ 51-18 51-25 fe S2-23 S2-23@ 52-46 


6 
TSTSTM 7-278 19-4 19-8 19-10 19-11 19-13 19-14 19-16 19-17 19-21 19-22 19-24 19-25 19-28 


61-25 61-31 61-35 61-36 61-45 62-19 62-24 62-25 62-28 62-33 -34 62-35 62-38 63-30 
63-32 63-35 63-44 63-46 63-71 63-96 63-99 63-100 63-121 63-122 63-124 63-138 63-141 63-148 
63-155 63-157 63-164 63-165 64-33 64-34 64-37 64-39 64-42 64-45 64-56 64- 64-63 65- 


67-197 67-201 67-203 67-205 67-209 67-214 67-219 67-221 67-229 67-247 
TSTSTS 7-278@ 5SO-57@ 51-14@ 52-230 53-220 54-170 55-80 S6-23@ 57-120 58-15@ 59-140 60-208 61-9¢ 62-10% 


T1 8-8 50-576 
T1.1 50-626 
T10 8-8 59-140 


110.2 59-496 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-25 
CROSS REFERENCE TABLE (CREF V04.00 ) 


T10.2$ 59-39 59-46¢ 
T10.3$ 59-59 59-65 59-68% 
T10.4$ 59-45 59-66¢ 
T10.7$ 59-26 59-75¢ 
T10.8$ 59-67 59-73 59-80% 
Til 8-8 60-20% 


T11.2$ 60-33@ 60-39 60-50 


Tle 8-6 61-98 
Ti2.1 61-20¢ 
Tl2.2 61-314 
T13 8-8 62-100 
T13.1 62-19¢ 
T13.1$ 62-32 62-360 
T13.2 62-280 


T14 : 8-8 63-17¢ 

T14.1$ 63-53@ 63-151 

T14.7$ 63-44 63-153¢ 

T14.8$ 63-101 63-123 63-142 63-150 63-1580 
T1411$ 63-92 63-116 63-125¢ 


T1412$ 63-134 63-140 63-1446 
T1418 14-280 63-79 63-160 67-135 67-225 


T15 8-8 64-198 
T15.1 64-376 

T15.2 64-420 

T15.3 64-560 

T16 8-8 65-180 
116.1 65-380 

116.2 65-420 

116.3 65-630 

116.4 65-670 

117 8-8 66-250 
117.1 66-520 

T18 8-8 67-290 
118.1 67-700 

118.2 67-1276 n 
118.3 67-1800 


TI8END 67-157 67-179 67-198 67-212 67-2220 


SEQ 0190 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-26 
CROSS REFERENCE TABLE (CREF V04.00 ) 


tS 8-8 54-170 
15.11 54-280 54-36 


17.28 56-53 56-68 56-770 
17.3$ 56-85 56-96 56-1030 


17.78 S6-37 56-108 

17.8% 56-62 56-75 56-105 5S6-113¢ 
T7A 14-60 56-32 56-115 

T8 8-8 57-12¢ 


T8.1$ 57-38@ 57-60 57-96 
T8.10$ 57-79 57-85 57-880 


18.8% 57-87 57-93  57-103¢ 


T9 8-68 58-15¢ 

T9.1 58-340 

T9.1$ 58-318 58-75 

T9.2 58-S2¢e 

19.28 S8-42 58-490 

T9.3$  5S8-62 58-68 58-71¢ 
19.4% 58-48 58-690 

19.7% 58-27 58-780 

19.868 58-70 58-76 58-85¢ 
TO 38-10 38-196 


TEMPO 813-80 63-48 63-145 63-147# 67-90% 67-206 67-208 
TEST1L 5S0-59@ 50-66 

TEST1O 59-226 

TESTIS 62-130 62-37 


SEQ 0191 





KiS 
PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-27 SEQ 0192 
CROSS REFERENCE TABLE (CREF V04.00 ) 


TEST14 63-298 63-34 

TESTIS 64-23@ 64-60 

TEST16 65-308 65-83 

TEST17 66-53@ 66-65 66-74 66-81 
TEST18 67-55@ 67-77 

TESTS S2-27@ 5S2-67 S2-70 

TEST& 53-26@ 53-63 53-66 


TIM.PT 13-468 32-45 32-91 32-926 32-143 32-1464 32-147 
TIM.UP 13-33@ 32-44 32-50e 32-71 32-117 33-23 63-145 67-206 67-211 
TIMER 35-1160 36-23 36-65% 36-1284 36-246 37-155e 37-210 38-226  38-118* 38-143« 38-208  38-210« 38-243 38-258 


TRK.DS 13-318 19-29 19-31 19-38 19-40 28-32¢ 28-61%  28-101% 29-18% 31-19% 32-214 
TRK.RD 13-270 19-4 19-31 27-21¢ 28-9 26-11 28-16e 30-15 31-16  56-111* 57-101* 58-81« 59-78  63-156« 


TRKWC 13-496 60-25 65-21 66-37 
TRNSWT 35-900 37-13e 37-185 37-187# 37-198 37-216 37-2226 38-24 38-254 38-236 38-2534 


WOMS 26-152@ 57-59 57-89 58-51 58-73 59-48 59-70 
TYPTIM 33-17@ 56-115 57-105 58-87 59-82 63-160 67-225 
TYTIME 13-90 32-162 33-26¢ 33-37 


UAM 11-576 
UNIT 17-3¢ 44-30 44-33¢ 44-34 44-39 
UNS 12-936 


UPE 

— 28-79 28-120 31-8¢ 

— 13-470 29-96 56-644 56-714 56-92e 56-99% 63-1034 63-119 67-159% 67-175« 
WCKD 12-2106 65-45 65-70 66-58 67-73 67-202 


WOR 12-147 27-153 


Lis 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE S-28 
CROSS REFERENCE TABLE (CREF V04.00 ) 


WRITMG 
WRPAT 

WRPATN 
WRSAFM 
WRT .RP 


WRTALL 
WRTDAT 
WRTENM 
WRTTD 

WRYUNS 
XSALWA 
X$FALS 
XSOFFS 
X$ TRUE 
xIT14 

xIT18 

XTIMES 


69-38 
65 -39¢ 
65 -64¢ 


63-1630 
67-2280 
63-18 


63-149 


37-31 


37-35 37-42 37-46 37-55 37-59 


37-164 37-168 37-179 38-105 38-315 


66-56 


69-59 
69-59 


67-40 


67-71 67-183 


67-211 


37 -66 


37-71 


37-83 


SEQ 0193 


37-91 37-102 


PARAMETER CODING MACRO VO04.00 1-DEC-83 12:59:38 PAGE M-1 
CROSS REFERENCE TABLE (CREF V04.00 ) 


-106¢ 
-114¢@ 


s8e"s8ec38 


mate tt Bare re ee ne mae ne 
8 g 
4 


7-2780 
7-278¢ 
7-278¢@ 
7-2780 
7-278¢ 
7-278¢ 
7-278¢ 
7-278¢ 
7-278 
7-2780 
7-2760 
7-278¢ 
7-278¢ 
7-278¢ 
7-278¢ 
7-278¢@ 
7-278¢ 
7-278¢@ 
7-2780 
55-15 


7-278¢ 


11-51 42-41 50-38 
19-27 19-36 19-45 


44-100 44-101 46-18 


50-63 50-64 51-19 
34 
62-29 63-31 64-38 


58-85 59-80 63-158 


41-1 48-35 67-254 


M15 


68-43 


38-4 

52-49 
57-41 
64-37 


54-17 
44-40 


46-21 


51-26 


64-44 


67-222 


69-123 


53-41 
57-69 
64-42 


55-8 


46-23 


52-47 


64-57 


53-44 
58-34 
64-56 


56-23 


52-63 


65-40 


54-27 
58-52 
65-38 


57-12 


53-42 


65-44 


54-30 
59-29 
65-42 


58-15 


53-59 


65-46 


54-42 
59-49 
65-63 


59-14 


54-28 


65-65 


SEQ 0194 


60-32 61-20 
65-67 66-S2 


60-20 61-9 


} 
$4-45 54-57 


54-31 54-43 


| 
65-69 65-71 


PARAMETER CODING MACRO V04.00 1- 
CROSS REFERENCE TABLE (CREF VO4. 


1-500¢ 


' ' ' ‘ 

wee 

Vir fv 
sso a 


wae ne ne SE Bip en 


7-278¢ 
7-2780 
7-2780 
7-278 


19-25 


19-11 
19-140 


19-34 


19-43 


69-18 
69-44 


19-160 


DEC-83 12:59:38 PAGE M-2 
00 ) 


19-49 


69-20 
69-47 


7-323¢ 

44-910 
57-15¢ 
63-350 
68-S57¢@ 
69-240 
69-440 
69-600 
19-40 

19-11 

19-17 


Ni5 


38-15 
S2 -64 
57-55 
64-39 


54-67 


30-35 
27-S2 
27-128 
59-79 


46-24 
67-78 


69-22 
69-49 


53-43 
57-83 
64-45 


55-25 


63-148 
27-61 
27-135 
61-24 


47-18 


69-24 
69-51 


53-60 
58-46 
64-58 


56-120 


64-33 
27-66 
27-140 
61-35 


48-19 


69-26 
69-53 


44-165 


54-29 
58 -66 
65-41 


57-110 


67-209 
27-71 
27-147 
62-24 


56-26 


69-28 
69-55 


54-32 
59-43 
65-47 


58-92 


27-76 
27-150 
62-33 


57-15 


69-30 
69-57 


27-87 
27-155 
63-157 


57-18 


69-32 
69-60 


27-92 
27-160 
67-221 


58-18 


69-34 


47-18 
$9-17 


69-18 
69-32 
69-S3 


19-10¢ 
19-14 
19-170 


SEQ 0195 


54-59 
61-25 
66 -60 


61-45 


27-95 
27-165 


58-21 


47-18¢ 
59-179 


69-18% 
69-32¢ 
69-53¢ 


19-11 
19-14 
19-21 


PARAMETER CODING MACRO V04.00 1- "3 83 12:59:38 PAGE M-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


MSDATA 


MSDECR 


MSDEFA 


MSENDE 


MSERRI 


MSESCA 
MSESCS 
MSEXCP 


MSEXIT 


MSEXSE 
MSEXTJ 


uw 
~ 
' 
pe 
ry 
° 


s~ 


$3.-A8288 
esoeeges 


19-22 


SASUKE 


oa 
~ 
' 


seapenessysa 


S38 


57- 1020 


19-240 
19-31 
19-420 
33-400 
33-570 
4-730 
56 -600 
63-990 
67-1550 
7-323 
7-323 
7-323 


44- 1030 
62-35¢ 


10-40 
26-168 
45-17 
51-20 
53-60 


44-1650 
63-350 


69-260 69-28 
69-470 69-49 


19-436 19-49¢@ 
48-350 50-67¢ 
54-448 54-470 
57-1100 58-460 
62-380 63-320 
66 -600 66-8306 


27-420 27-47 
27-878 27-92 
27-118@ 27-123 
27-155@ 27-160 


66-330 67-370 


67-2210 


68-61 
69-240 
69-34 
47-180 
59-20 


57-184 
48-190 


SEG 0196 


67-.050 
69-18¢ 


64-450 
67-2478 


27-61¢ 
27-988 
27-135¢ 
27-170¢ 
31-220 
62-2480 


68-612 
69-26 


56-26 
62-35 


58-21 
57-150 


PARAMETER CODING MACRO v04-.00 1-DEC 
CROSS REFERENCE TABLE (CREF V04.00 


MSGEN 


MSGENB 
MSGETS 


MSGETT 
M$GNGB 


1-038¢ 
7-323 
7-323 
7-323 
7-3230 
7-3230 
9-21 
19-25 
26-112¢ 
38-15¢ 
45-170 
50-570 


7-2780 


51-27 


hes 2. 


Stragsseswayyy 
btseceeess*$s2 


& 


7-323 


67-1940 


= 12:59:38 PAGE M-4 


- 7-323 
7-323 
7-323 
7-3230 
7-3230 
7-3230 

10-8 

19-270 

26-1300 

42-76 

46-26 

50-67 

51-31 

53-22 

$4-27 

54-47 

55-15 

56-57 

57-41 

58-46 

59-49 

61-9 

62-19 


7-323 
7-323 
7-323 
7-3230 
7-3230 
7-3230 
10-80 
19-34 
26-133 
42-760 
46 -260 
50-670 
51-310 
53-220 
54-270 
54-470 
55-150 
56-S70@ 
57-410 
58-460 
59-490 
61-90 
62-190 
63-320 
64-370 
65-180 
65-670 


7-323 
7-323 
7-323 
7-3230 
7-3230 
7-3230 
10-80 
19-340 
26-1330 
43-8 
47-8 
50-68 
S2-23 
53-41 
54-29 
54-57 
55-17 
56-76 
57-55 
58 -S2 
$9-63 
61-20 


26-165 
45-100 


SEG 6197 


7-323 


59-29 


69-71¢ 
58-21¢ 


42-47 
50-38? 


PARAMETER CODING MACRO V04.00 


1 -DEC - “we 12:59:38 PAGE M-5 


CROSS REFERENCE TABLE (CREF O08 .00 


MSGNIN 


68-430 
1-D49¢@ 
7-323 


27-160 
27-165¢ 


68-53 


68-530 
7-323 
7-323 
7-323 
7-323 
7-3230 
7-323¢ 
7-323 
8-8 
8-80 
8-80 

19-4 

19-4¢@ 

19-80 

19-11 


27- 165¢ 


69-12 
7-323 


69-1240 
7-323 


27-170 


27-170 


27-1700 


27-1700 


27-165 
27-1700 


27-1700 


SES 901948 


7-323 
7-323 
7-323 
7-323 
7-3230 
7-3230 
8-8 
8-8¢ 
8-80 
18-27 


27-165 
27-203 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE M-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


27-203 
30-190 


58-340 
58-690 


27-2030 
30-23 


27-2030 
30-23 


27-2030 


27-2030 


E16 


27-2030 
30-230 


30-19 30-19 
30-230 30-2340 
30-31 30-31 
30-350 30-350 
32-36 32-360 


56-37 56-37 
56-399 56-390 
56-60 56-600 
56-73 56-73 
56-740  S6-74¢ 
36-112 56-112 
56-119@ 56-119¢ 


58-27 58-27 
58-29 58-290 
-660 58-69 


SEQ 0199 


30-199 30-194 
30-27 30-27 
30-319 30-31 
31-22 31-22 
32-165 32-165 
32-1689 32-168 
32-173 32-173 
33-40% 33-4006 
33-45 33-45 
33-50 33-50 
33-S1 33-S51¢ 
33-560 33-560 
33-66 33-66 
33-73 33-73 
33-75@  33-75¢ 


36-36 36-36 
36-1459 36-1450 
36-254 36-254 
44-16 44-16 
44-250 44-250 
44-39 44-39 
44-710 44-71¢ 
44-73@ 44-75 
44-77 44-77 
44-85¢@ 44-85¢ 
44-899 44-894 
44-101 44-101 


54-322 54-42 
54-609 54-62 
55-25¢@ 56-26 
56-378  56-37¢ 
56-39¢ 56-44 
56-61 56-61 
56-73¢ 56-730 
56-762 56-89 
56-1122 56-112¢ 
56-120 56-120¢ 
57-32 57-32 
57-34 57-34 
57-69 57-69¢ 
57-100 57-100¢ 
57-109 57-109 
58-18¢ 58-18¢ 
58-27¢ 58-279 
58-299  58-29¢ 
58-69 58-698 
58-83 58-839 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE M-7 SEQ 9200 

CROSS REFERENCE TABLE (CREF VO04.00 ) 
58-830 58-83¢@ 58-830 58-830 58-83% 58-84 58 -84 58 -84 58 -84 58-840 58-840 58-849 58-840 58-849 
58-91 58-91 58-91 58-91 58-91 58-91 58-910 58-910 58-910 58-910 58-910 58-91% 58-92 58-920 
$9-17 S9-17 S9-17@ 59-170 59-20 59-20 59-209 59-200 59-26 59-26 59-26 S$9-26 59-26 59-26 
59-26@ 59-260 59-260 59-260 59-260 59-260 59-28 59-28 59-28 59-28 59-28 59-28 59-280 59-280 
59-280 59-280 59-280 59-260 59-29 59-290 59-43 59-430 59-49 59-490 59-63 59-630 59-66 59-66 
59-66 59-66 59-66 59-660 59-660 59-660 59-664 59-77 59-77 59-770 59-770 59-79 59-79 59-79 
59-79 59-790 59-790 59-790 59-79@ 59-790 59-86 59-86 59-86 59-86 59-86 59-86 59-860 59-860 
59-860 59-860 59-860 59-860 59-87 59-870 60-32 60-320 60-44 60-440 60-52 60-52 61-20 61-204 
61-24 61-24 61-24 61-24 61-240 61-240 61-240 61-240 61-240 61-25 61-25@ 61-31 61-319 61-35 
61-35 61-35 61-35 61-35@ 61-35@ 61-350 61-350 61-350 61-36 61-360 61-45 61-45@ 62-19 62-190 
62-24 62-24 62-24 62-24 62-240 62-240 62-240 62-240 62-240 62-25 62-250 62-28 62-280 62-33 
62-33 62-33 62-33 62-33@ 62-330 62-330 62-330 62-330 62-34 62-340 62-35 62-35 62-350  62-35¢ 
62-38 62-389 63-30 63-30@ 63-32 63-320 63-35 63-35 63-350 63-350 63-44 63-44 63-44 63-44 
62-44 63-44 63-440 63-440 63-440 63-440 63-440 63-440 63-46 63-46 63-46 63-46 63-46 63-46 
63-460 63-460 63-460 63-460 63-460 63-460 63-71 63-710 63-96 63-960 63-99 63-99 63-99 63-99 
63-99 63-999 635-999 63-999 63-99 63-100 63-100 63-100 63-100 63-100 63-100@ 63-100@ 63-1008 63-100¢ 
63-121 63-121 63-121 63-121 63-121 63-1210 63-1210 63-121@ 63-1210 63-122 63-122 63-122 63-122 63-122 
65-122@ 63-1220 63-122@ 63-122@ 63-124 63-1240 63-138 63-1386 63-141 63-141 63-141 63-141 63-141 63-141¢ 
63-1419 63-141@ 63-1410 63-148 63-148 63-148 63-148 63-1480 63-1480 63-1480 63-1480 63-1486 63-155 63-155 
63-155@ 63-155@ 63-157 63-157 63-157 63-157 63-157@ 63-157@ 63-157 63-1570 63-1570 63-164 63-164 63-164 
63-164 63-164 63-164 63-1640 63-1640 63-1640 63-1646 63-1640 63-1640 63-165  63-165@ 64-33 64-33 64-33 
64-33 64-330 64-330 64-330 64-330 64-330 64-34 64-340 64-37 64-370 64-39 64-39% 64-42 64-420 
64-45 64-45¢@ 64-56 64-56@ 64-58 64-589 64-63 64-630 65-38 65-380 65-41 65-419 65-42 65-42¢ 
65-47 65-47@ 65-63 65-630 65-66 65-660 65-67 65-670 65-72 65-720 65-85 65-85¢@ 66-31 66-31 
66-31 66-31 66-31 66-31 66-310 66-310 66-310 66-310 66-31% 66-33 66-33 66-330 66-338 66-52 
66-520 66-60 66-608 66-83 66-830 67-35 67-35 67-35 67-35 67-35 67-35 67-35@ 67-350 67-350 
67-35@ 67-350 67-37 67-37 67-37@ 67-376 67-70 67-700 67-75 67-75@ 67-78 67-78 67-788 67-78 
67-86 67-86 67-86 67-86 67-86 67-86 67-860 67-860 67-860 67-860 67-860 67-860 67-88 67-88 
67-88 67-88 67-88 67-88 67-880 67-880 67-880 67-880 67-880 67-88@ 67-127 67-127@ 67-152 67-152¢ 
67-155 67-155 67-155 67-155 67-155 67-155@ 67-155@ 67-155@ 67-155@ 67-156 67-156 67-156 67-156 67-156 
67-156@ 67-1560 67-156@ 67-156@ 67-177 67-177 67-177 67-177 67-177 67-1770 67-177@ 67-1770 67-1778 67-178 
67-178 67-178 67-178 67-178 67-1780 67-178@ 67-1780 67-178@ 67-180 67-180@ 67-194 67-194@ 67-197 67-197 
67-197 67-197 67-197 67-1970 67-197@ 67-197@ 67-197@ 67-201 67-201 67-201 67-201 67-201 67-201 67-201¢ 
67-2018 67-2016 67-201@ 67-201 67-201 67-203 67-203@ 67-205 67-205@ 67-209 67-209 67-209 67-209 67-209¢ 
67-2098 67-2090 67-2090 67-209 67-214 67-214 67-214 67-214 67-214 67-214 67-2140 67-2140 67-2140 67-2140 
67-2146 67-2140 67-219 67-219 67-2198 67-2190 67-221 67-221 67-221 67-221 67-2210 67-2210 67-2218 67-221¢ 
67-2218 67-229 67-229 67-229 67-229 67-229 67-229 67-2290 67-2290 67-2290 67-2290 67-2298 67-229¢ 67-247 
67-2478 68-53 68-53@ 68-55 68-55 68-SS 68-55 68-55% 68-57 68-57 68-57 68-57 68-S7* 68-59 
68-59 68-59 68-59 68-59 68-S9@ 68-61 68-61 68-61 68-61 68-61 68-619 68-62 68-620 69-12 
69-120 69-14 69-14 69-14 69-140 69-16 69-160 69-18 69-18 69-18 69-18 69-18 69-188 69-20 
69-20 69-20 69-20 69-20 69-200 69-22 69-22 69-22 69-22 69-22 69-220 69-24 69-24 69-24 
69-24 69-24 69-240 69-26 69-26 69-26 69-26 69-26 69-269 69-28 69-28 69-28 69-28 69-28 
69-28@ 69-30 69-30 69-30 69-30 69-30 69-300 69-32 69-32 69-32 69-32 69-32 69-320 69-34 
69-34 69-34 69-34 69-34 69-340 69-38 69-38 69-38 69-388 69-40 69-400 69-44 69-44 69-44 
69-449 69-47 69-47 69-47 69-470 69-49 69-49 69-49 69-490 69-51 69-51 69-51 69-S1¢@ 69-53 
69-53 69-53 69-53@ 69-55 69-55 69-55 69-S5@ 69-57 69-57 69-57 69-S7@ 69-59 69-S9@ 69-60 
69-60 69-60 69-60@ 69-71 69-71@ 69-122 69-122 69-122 69-1220 70-16 70-16 70-16@ 70-160 

MSGM.S 1-C13@ 7-2786 67-205 67-2050 

M$GNSU 1-B898@ 7-278@ 50-62 S0-62@ 51-18 51-18@ 51-25 51-250 52-46 S2-46@ 52-49 S2-49@ 53-41 53-41 
53-44 53-440 54-27 54-270 54-30 54-300 54-42 54-420 54-45 54-45@ 54-57 S4-57@ 54-60 54-60 
55-15 55-15@ 55-18 55-180 56-44 56-440 56-76 56-760 57-25 $7-25@ 57-41 57-41 57-69 57-69¢ 
58-34 58-340 58-52 $8-S2e@ 59-29 59-290 59-49 S9-49@ 60-32 60-320 61-20 61-208 61-31 61-31¢ 
62-19 62-190 62-28 62-280 63-30 63-300 63-71 63-710 63-124 63-1240 64-37 64-37@ 64-42 64-429 
64 -56 64-5S6@ 65-38 65-38@ 65-42 65-420 65-63 65-630 65-67 65-670 66-52 66-S52e 67-70 67-70% 
67-127 67-1270 67-180 67-1800 

MSGNTA 1-890 7-278@ 9-21 9-210 10-39 10-390 19-25 19-250 19-34 19-340 19-43 19-439 19-49 19-49% 


PARAMETER CODING MACRO V04.00 1-DEC 
CROSS REFERENCE TABLE (CREF V04.00 


26-1150 


MSGNTE 


MSHAPT 
MSHNAP 
MSINCR 


26-115 
45-17 
51-27 
53-67 
54-67 
57-27 
59-43 
61-45 
63-165 
65 -66 
67-194 
1-B94¢ 
56-23 
63-17 
1-A399 
1-B249 
1-D26¢ 
19-3 
19-240 
19-360 
26-35¢ 
26-165 
27-879 
27-155¢ 
32-340 


45-17¢ 
51-27¢ 
53-67¢ 
54-670 


ed 12:59:38 PAGE M-8 


26 - 1684 


47-330 
52-4840 
54-320 
55-200 
57-830 
59-870 
62-349 


60-204 
67-290 


10-8 


SEQ 0201 


44-180¢ 
51-20¢ 
53-600 
54 -62¢ 
56-120 
58-92¢ 
61-360 
63-138¢ 
65-470 
67-152¢ 


55-89 
62-10 


H1i6 
PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE M-9 SEQ 0202 
CROSS REFERENCE TABLE (CREF V04.00 ) 


63-719 63-710 63-718 63-960 63-99% 63-1000 63-1210 63-1220 63-124 63-124 63-124 63-124% 63-1248 63-124¢ 
63-1380 63-1410 63-148¢ 63-155% 63-1570 63-1640 63-1650 64-19 64-19 64-19 64-190 64-19% 64-190 64-330 
64-34¢@ 64-37 64-37 64-37 64-370 64-370 64-370 64-399 64-42 64-42 64-42 64-420 64-429 64-420 
64-45¢ 64-56 64 -56 64-56 64-560 64-560 64-560 64-580 64-630 65-18 65-18 65-18 65-18 65-184 
65-18% 65-38 65-38 65-38 65-380 65-380 65-380 65-41¢ 65-42 65-42 65-42 65-420 65-42¢@ 65-4246 
65-47¢ 65-63 65-63 65-63 65-630 65-630 65-630 65-660 65-67 65-67 65-67 65-670 65-678 65-67¢ 
65-72@ 65-85¢@ 66-25 66-25 66-25 66-250 66-250 66-250 66-310 66-330 66-52 66-52 66 -S2 66-S2¢ 
66-S2@ 66-520 66-600 66-830 67-29 67-29 67-29 67-290 67-290 67-29% 67-350 67-376 67-70 67-70 
67-70 67-70@ 67-708 67-708 67-750 67-780 67-860 67-880 67-127 67-127 67-127 67-1278 67-1278 67-1274 
67-1528 67-155@ 67-156@ 67-1770 67-1780 67-180 67-180 67-180 67-1808 67-1800 67-180@ 67-1940 67-1978 67-2010 
67-203 67-203 67-203 67-2030 67-203@ 67-2030 67-2030 67-205 67-2090 67-2140 67-219 67-2210 67-2298 67-247¢ 
68 -43 68-43@ 68-53 68-53 68-530 68-530 69-12 69-12 69-12 69-120 70-15 70-15@ 70-16 70-16 


M$ IOSE 1-A00® 7-278¢ 
MSLDRO 1-C42@ 7-278@ 26-16 26-160 26-35 26-350 36-20 36-200 36-45 36-450 36-147 36-1478 36-199 36-199¢ 
36-254 36-2540 44-16 44-16% 44-20 44-200 44-25 44-250 44-39 44-390 44-98 44-980 44-100 44-100¢ 
44-101 44-101¢@ 46-10 46-10@ 46-18 46-180 46-21 46-210 46-23 46-23 56-110 56-110@ 57-100 57-100¢ 
58-80 58-806 59-77 S9-77@ 63-155 63-155 67-219 67-2190 
MSMASK 1-871 7-278 
MSMCHI 1-40 7-278 7-278@ 7-2780 
MSMCLO 1-824@ 7-278 7-278@ 7-278 
MSMSK1 1-877@ 7-278 
MSsPOP 1-B81@ 7-278@ 9-21 9-21@ 10-39 10-39@ 10-40 10-408 19-25 19-250 19-34 19-349 19-43 19-434 
19-49 19-490 26-115 26-1150 26-133 26-1330 26-168 26-1680 32-36 32-360 38-15 38-15@ 41-1 41-1¢ 
42-76 42-760 43-12 43-120 44-180 44-1800 45-17 45-170 46-26 46-260 47-33 47-330 48-34 48-349 
48-35 48-35¢@ 50-67 50-67@ 50-68 S0-68@ 51-20 51-200 51-27 51-27@ 51-31 51-31@ 52-48 S2-48¢ 
S2-71 52-710 53-43 53-43@ 53-60 53-600 53-67 53-670 54-29 54-290 54-32 5$4-32¢ 
54-47 54-47@ 54-59 54-S9@ 54-62 54-620 54-67 54-67@ 55-17 55-17@ 55-20 55-20 
56-57 56-57@ 56-89 56-899 56-120 56-1208 57-27 $7-27@ 57-55 57-S5S@ 57-83 57-834 
57-110 57-110@ 58-46 58-460 58-66 58-660 58-92 58-920 59-43 59-438 59-63 59-630 59-87 59-879 
60-52 60-S2e@ 61-25 61-25@ 61-36 61-36@ 61-45 61-45@ 62-25 62-259 62-34 62-34¢ 
63-32 63-320 63-96 63-960 63-138 63-1386 63-165 63-1650 64-39 64-399 64-45 64-45¢ 
64-63 64-630 65-41 65-410 65-47 65-470 65-66 65-660 65-72 65-72e 65-85 65-85¢ 
66-60 66-608 66-835 66-83¢@ 67-75 67-75@ 67-152 67-152@ 67-194 67-1940 67-205 67-205 67-205@ 67-247 


MSPRIN 1-8360 7-2786 19-4 19-40 19-8 19-80 19-10 19-10@ 19-11 19-11@ 19-13 19-130 19-14 19-149 
19-16 19-160 19-17 19-178 19-21 19-21@ 19-22 19-220 19-24 19-248 19-28 19-28@ 19-29 19-29¢ 
19-30 19-30@ 19-31 19-31@ 19-33 19-330 19-39 19-390 19-40 19-40@ 19-42 19-420 19-46 19-469 
19-48 19-480 32-165 32-165@ 32-168 32-168@ 32-171 32-171@ 32-173 32-1730 33-40 33-400 33-43 33-439 
33-45 33-45@ 33-50 33-5S0@ 33-51 33-51@ 33-56 33-560 33-57 33-S7@ 33-66 33-660 33-73 33-73¢ 
33-75 33-75@ 33-77 33-77@ 44-29 44-290 44-71 44-710 44-73 44-730 44-75 44-75@ 44-77 44-779 
44-85 44-850 44-114 44-114@ 44-127 44-127@ 44-132 44-1320 56-60 56-60@ 56-61 56-61@ 56-73 56-73 
56-74 56-744 57-86 57-860 58-69 58-699 59-66 59-660 63-99 63-999 63-100 63-100@ 63-121 63-12i¢@ 


63-122 63-120 63-141 63-1410 66-31 66-310 67-35 67-350 67-155 67-155@ 67-156 67-1560 67-177 67-1772 
67-178 67-178 57-197 67-1976 

MSPUSH 11-8310 7-278@ 7-304 7-3040 9-9 9-90 10-8 10-8¢ 11-51 11-51¢@ 19-3 19-3¢ 19-27 19-27¢ 
19-36 19-360 19-45 19-45@ 26-112 26-1120 26-130 26-130@ 26-165  26-165¢@ 32-34 32-340 38-4 38-4¢ 
42-41 42-410 42-47 42-47@ 43-8 43-80 44-8 44-80 45-10 4S-10@ 46-8 46-80 47-8 47-82 
48-9 48-90 50-38 50-38@ 50-57 50-57@ 50-62 50-620 51-14 51-14@ 51-18 51-18¢@ 51-25 51-25¢ 
S2-23 S2-23@ 52-46 52-460 52-49 52-490 53-22 53-220 53-41 53-410 53-44 S?-44@ 54-17 54-17% 
54-27 54-270 54-30 54-30@ 54-42 54-420 54-45 54-45@ 54-57 54-57@ 54-60 54-608 55-8 55-8¢ 
55-15 55-15@ 55-18 55-16@ 56-23 56-230 56-44 56-440 56-76 56-760 57-12 $7-12@ 57-25 57-25¢@ 
57-41 57-410 57-69 57-690 58-15 58-15@ 58-34 58-340 58-52 $8-S2e 59-14 S9-14@ 59-29 59-29% 
59-49 59-498 60-20 60-206 60-32 60-320 61-9 61-90 61-20 61-20@ 61-31 61-319 62-10 62-10¢ 
62-19 62-199 62-28 62-280 63-17 63-170 63-30 63-300 63-71 63-710 63-124 63-124¢@ 64-19 64-19% 
64-37 64-370 64-42 64-420 64-56 64-560 65-18 65-18@ 65-38 65-38@ 65-42 65-428 65-63 65-63 


i 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE M-10 SEQ 0203 
CROSS REFERENCE TABLE (CREF V04.00 ) 


65-67 65-679 66-25 66-250 66-52 66-520 67-29 67-290 67-70 67-700 67-127 67-1270 67-180 67-180¢ 
67-203 67-203 67-2030 68-43 68-430 68-53 68-530 69-12 69-120 

MSPUT 1-C72@ 7-278@ 19-4 19-4 19-4 19-4 19-4 19-49 19-8 19-8 19-8 19-8 19-8 19-8 
19-8¢ 19-10 19-10 19-108 19-12 19-11 19-11 19-11 19-11 19-11 19-11 19-11 19-11 19-114 
19-13 19-13 19-130 19-14 19-14 19-14 19-14 19-14 19-14 19-14 19-14 19-14 19-14@ 19-16 
19-16 19-16@ 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-17 19-170 19-21 19-21 
19-21@ 19-22 19-22 19-22 19-22 19-220 19-24 19-24 19-24% 19-28 19-28 19-289 19-29 19-29 


44-85@ 44-89 44-89 44-89 44-89 44-890 44-114 44-114 44-114 rot * a 44-127 44-127 44-127 44-127¢ 


58-91% 59-26 59-26 59-26 59-26 59-268 59-28 59-28 59-28 59-28 59-280 59-66 59-66 -669 
59-86 59-86 59-86 59-86 59-860 63-44 63-44 63-44 63-44 63-440 63-46 63-46 63-46 63-46 
63-460 63-99 63-99 635-99@ 63-100 63-100 63-100@ 63-121 63-121 63-121 63-122 63-122 3-122 63-141 
63-141 63-1410 63-164 63-164 63-164 63-164 63-164@ 66-31 66-31 66-31 66-31% 67-35 67-35 67-35 


6 
MSPUT1 Be es 7-278@ 19-4 19-4 19-4 19-4 19-4 19-40 19-40 19-4¢ 19-49 19-40 19-8 19-8 


26 26 

26 26-155@ 26-155@ 26-155@ 26-155@ 26-170 26-170 26-170 26-170 26-1708 26-170¢ 
26-170@ 26-170@ 32-165 32-165 32-165@ 32-165@ 32-168 32-168 32-168  32-168@ 32-168@ 32-168@ 32 
32-171 32-171@ 32-171@ 32 32-173 32-173 32-173@ 32-1730 33-40 33-40 33-400 33-408 33-43 33-43 
33-430 33-43¢@ 33-45 33-45 33-45 33-45@ 33-450 33-45¢@ 33-50 33-50 33-50 33-50 33-S0@  33-50¢ 
33-50@ 33-5S0@ 33-51 33-51 33-51 33-510 33-510 33-51¢@ 33-56 33-56 33-56 33-56 33-56@ 33-S6¢ 
33-S6@ 33-560 33-57 33-57 33-S7@ 33-570 33-66 33-66 33-66 33-660 35-660 33-660 33-73 33-73 
33-73 33-730 33-73@ 33-730 33-75 33-75 33-75 33-75@ 33-75¢ 33-75¢@ 33-77 33-77 33-77 33-77¢ 
33-770 33-770 36-36 36-36 36 - 36 36-36 36-360 36-360 36-360 36-360 44-29 44-29 44-29% 44-29% 
44-71 44-71 44-71 44a 
44-75 44-750 44-75@ 44-75@ 44-77 44-77 44-77 44-770 44-770 44-770 44-85 44-85 44-85%  44-85¢ 


PARAMETER CODING MACRO VO4.00 1-DEC-83 12:59:38 PAGE M-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 


MSRADI 


M$RBRO 
MSRNRO 
MSSETS 


MSSTAR 
MsSVC 


44-89 
44-127 
56-37¢ 
56 -60¢ 


44-89 
44-127 
56 -37¢ 
56-600 
56-119 


46-240 


44-89 


69-380 
69-57¢ 


44-89% 


~ 
i 
/ 


‘ 
RPuUrPwh &du@® 


' 
No av 
~ GUauwMEDWod 


Sis SRIASERENSER 


19-31 


44-1800 
46-260 


44-890 


47-180 


J16 


44-890 


44-894 
44-132 
56-39 
56-73 
56-1190 
57-340 
57-1090 
58-290 
58-830 
59-260 
59-660 
63-440 
63-990 
63-141 
66-3190 
67-860 
67-155¢ 
67-197 
67-214 


68-590 
69-260 
69-470 


46-10 
47-330 


44-114 
44-1329 


67-2140 
68-61 


69-28 
69-49 


48-190 


44-114 
44-1326 
56-390 


67-197 
67-214¢ 


68-614 


69-280 
69-490 


36-1450 


46-18 
48-34 


44-1140 
56-37 
56-394 
56-74 
57-32 
57-86 


67-2140 


69-149 
69-300 
69-51¢ 


44-1144 
56-37 


46-219 
50 -62¢ 


SEQ 0204 


44-114¢ 


PARAMETER CODING MACRO V04.00 1 
CROSS REFERENCE TABLE (CREF vod, 00 


MSTLAB 


MSTSTL 


50-678 


50-68 
52-48 
53-60 


eee 


27- 1136 


51-18 
52-49 
53-67 
54-45 
55-15 
56-39 
56-76 
57-18¢ 
57-694 
58-21 
58-69 
59-200 


27-1130 


-DEC- "i 12:59:38 PAGE M-12 


52-64 52-640 
54-27 54-270 
54-47 54-470 


-98 
27- 1180 27- 1180 


27-1230 


27-470 
27-760 
27-103 
27-1230 


67-180 


27-128¢ 


27- 1280 


SEQ 0205 


27-1084 
27-135 


en 


PARAMETER CODING MACRO V04.00 1-DEC-83 12:59:38 PAGE M-13 SEQ 0206 
CROSS REFERENCE TABLE (CREF VO .00 ) 


27-135@ 27-135@ 27-140 27-1408 27-1408 27-147 27-147 27-147 27-150 27-150@ 27-150@ 27-155 27-1550 27-1556 
27-160 27-160@ 27-1608 27-165 27-165@ 27-165 27-170 27-170@ 27-1708 27-203 27-203@ 27-2038 430-19 30-194 
30-198 30-23 30-230 30-230 30-27 30-279 30-270 30-31 30-310 30-310 30-35 30-35@ 30-350 30-45 
30-45@ 31-22 31-22 31-220 32-165 32-1650 32-168 32-1680 32-171 32-171 32-173 32-1738 33-40 33-400 
33-43 33-43@ 33-45 33-450 33-50 33-50@ 33-51 33-510 33-56 33-S6@ 33-57 33-57% 33-66 33-664 
33-73 33-73@ 33-75 33-75¢@ 33-77 33-770 36-186 36-189 36-20 36-200 36-36 36-360 36-45 36-45¢ 


67-214 67-214@ 67-219 67-2198 67-221 67-2218 67-2218 67-229 67-2290 67-247 67-247¢ 
MSWORD 1-C94@ 7-278@ 7-323 7-3230 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 
8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-8 8-80 27-27 27-27 27-27 27-27¢ 


67-370 67-78@ 67-209 67-209 67-209 67-209 67-221 67-221 67-221 67-2210 68-55 68-SS@ 68-57 68-57¢ 
68-59 68-596 68-61 68-610 69-14 69-140 69-16 69-160 69-18 69-18% 69-20 69-200 69-22 69-22¢ 


PARAMETER CODING MACRO V04.00 1-DEC-83 12:59:38 PAGE M-14 
CROSS REFERENCE TABLE (CREF V04.00 ) 


MSXFER 
MANUAL 
MEMORY 
OPEN 
POINTE 
POP 
PRINTB 
PRINTF 


PRINTS 


SAVREG 


SETPRI 
SETVEC 


SLASH 
STARS 


svc 
XFER 


XFERF 
XFERT 


a 


69-240 
69-400 


7-278 


69-26 
69-44 
69-59 
69-16 


7-310 
33-82 


69-26¢ 
69-440 
69-590 
69-16% 


69-28 
69-47 
69-60 
69-40 


69-28% 
69-47% 
69-600 
69-404 


44-165¢ 
67-370 


46-240 
67-784 


69-32 
69-51 


69-320 
69-51¢ 


69-34 
69-53 


69-34% 
69-534 


19-46 
33-56 
44-132 
67-35 


19-31 


59-40 


59-60 
59-40 
59-77 


56-39 
63-164 


54-3 
60-18 
67-27 


57-184 


69-38 
69-55 


19-48 
33-57 
56-60 
67-155 


59-60 


$9-78 
59-60 
63-155 


56-119 
67-86 


54-15 
61-3 


58-18¢ 


SEQ 0207 


69-389 
69-554 


33-66 
56-61 
67-156 


ee a eS Cee a SS ee eee 


